*** pub/pgnus/lisp/gnus-cite.el	Fri Feb 26 18:01:03 1999
--- pgnus/lisp/gnus-cite.el	Fri Feb 26 19:54:26 1999
***************
*** 614,620 ****
  ;;; Internal functions:
  
  
! (defun gnus-cite-parse-maybe (&optional force)
    "Always parse the buffer."
    (gnus-cite-localize)
    ;;Reset parser information.
--- 614,620 ----
  ;;; Internal functions:
  
  
! (defun gnus-cite-parse-maybe (&optional force no-overlay)
    "Always parse the buffer."
    (gnus-cite-localize)
    ;;Reset parser information.
***************
*** 622,628 ****
  	gnus-cite-attribution-alist nil
  	gnus-cite-loose-prefix-alist nil
  	gnus-cite-loose-attribution-alist nil)
!   (gnus-cite-delete-overlays)
    ;; Parse if not too large.
    (if (and gnus-cite-parse-max-size
  	   (> (buffer-size) gnus-cite-parse-max-size))
--- 622,629 ----
  	gnus-cite-attribution-alist nil
  	gnus-cite-loose-prefix-alist nil
  	gnus-cite-loose-attribution-alist nil)
!   (unless no-overlay
!     (gnus-cite-delete-overlays))
    ;; Parse if not too large.
    (if (and gnus-cite-parse-max-size
  	   (> (buffer-size) gnus-cite-parse-max-size))
***************
*** 918,924 ****
  (defun gnus-cite-toggle (prefix)
    (save-excursion
      (set-buffer gnus-article-buffer)
!     (gnus-cite-parse-maybe)
      (let ((buffer-read-only nil)
  	  (numbers (cdr (assoc prefix gnus-cite-prefix-alist)))
  	  (inhibit-point-motion-hooks t)
--- 919,925 ----
  (defun gnus-cite-toggle (prefix)
    (save-excursion
      (set-buffer gnus-article-buffer)
!     (gnus-cite-parse-maybe nil t)
      (let ((buffer-read-only nil)
  	  (numbers (cdr (assoc prefix gnus-cite-prefix-alist)))
  	  (inhibit-point-motion-hooks t)
*** pub/pgnus/lisp/gnus-draft.el	Fri Jan 15 21:52:10 1999
--- pgnus/lisp/gnus-draft.el	Fri Feb 26 19:54:26 1999
***************
*** 123,128 ****
--- 123,129 ----
    (gnus-draft-setup article (or group "nndraft:queue"))
    (let ((message-syntax-checks (if interactive nil
  				 'dont-check-for-anything-just-trust-me))
+ 	(messgage-inhibit-body-encoding t)
  	message-send-hook type method)
      ;; We read the meta-information that says how and where
      ;; this message is to be sent.
*** pub/pgnus/lisp/gnus.el	Fri Feb 26 18:01:06 1999
--- pgnus/lisp/gnus.el	Fri Feb 26 19:54:26 1999
***************
*** 259,265 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "0.78"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
--- 259,265 ----
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "0.79"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
*** pub/pgnus/lisp/message.el	Fri Feb 26 18:01:06 1999
--- pgnus/lisp/message.el	Fri Feb 26 19:54:27 1999
***************
*** 4106,4153 ****
  ;;; MIME functions
  ;;;
  
  (defun message-encode-message-body ()
!   (let ((mail-parse-charset (or mail-parse-charset
! 				message-default-charset
! 				message-posting-charset))
! 	(case-fold-search t)
! 	lines content-type-p)
!     (message-goto-body)
!     (save-restriction
!       (narrow-to-region (point) (point-max))
!       (let ((new (mml-generate-mime)))
! 	(when new
! 	  (delete-region (point-min) (point-max))
! 	  (insert new)
! 	  (goto-char (point-min))
! 	  (if (eq (aref new 0) ?\n)
! 	      (delete-char 1)
! 	    (search-forward "\n\n")
! 	    (setq lines (buffer-substring (point-min) (1- (point))))
! 	    (delete-region (point-min)  (point))))))
!     (save-restriction
!       (message-narrow-to-headers-or-head)
!       (message-remove-header "Mime-Version")
!       (goto-char (point-max))
!       (insert "MIME-Version: 1.0\n")
!       (when lines
! 	(insert lines))
!       (setq content-type-p
! 	    (re-search-backward "^Content-Type:" nil t)))
!     (save-restriction
!       (message-narrow-to-headers-or-head)
!       (message-remove-first-header "Content-Type")
!       (message-remove-first-header "Content-Transfer-Encoding"))
!     ;; We always make sure that the message has a Content-Type header.
!     ;; This is because some broken MTAs and MUAs get awfully confused
!     ;; when confronted with a message with a MIME-Version header and
!     ;; without a Content-Type header.  For instance, Solaris'
!     ;; /usr/bin/mail.
!     (unless content-type-p
!       (goto-char (point-min))
!       (re-search-forward "^MIME-Version:")
!       (forward-line 1)
!       (insert "Content-Type: text/plain; charset=us-ascii\n"))))
  
  (provide 'message)
  
--- 4106,4156 ----
  ;;; MIME functions
  ;;;
  
+ (defvar messgage-inhibit-body-encoding nil)
+ 
  (defun message-encode-message-body ()
!   (unless messgage-inhibit-body-encoding 
!     (let ((mail-parse-charset (or mail-parse-charset
! 				  message-default-charset
! 				  message-posting-charset))
! 	  (case-fold-search t)
! 	  lines content-type-p)
!       (message-goto-body)
!       (save-restriction
! 	(narrow-to-region (point) (point-max))
! 	(let ((new (mml-generate-mime)))
! 	  (when new
! 	    (delete-region (point-min) (point-max))
! 	    (insert new)
! 	    (goto-char (point-min))
! 	    (if (eq (aref new 0) ?\n)
! 		(delete-char 1)
! 	      (search-forward "\n\n")
! 	      (setq lines (buffer-substring (point-min) (1- (point))))
! 	      (delete-region (point-min)  (point))))))
!       (save-restriction
! 	(message-narrow-to-headers-or-head)
! 	(message-remove-header "Mime-Version")
! 	(goto-char (point-max))
! 	(insert "MIME-Version: 1.0\n")
! 	(when lines
! 	  (insert lines))
! 	(setq content-type-p
! 	      (re-search-backward "^Content-Type:" nil t)))
!       (save-restriction
! 	(message-narrow-to-headers-or-head)
! 	(message-remove-first-header "Content-Type")
! 	(message-remove-first-header "Content-Transfer-Encoding"))
!       ;; We always make sure that the message has a Content-Type header.
!       ;; This is because some broken MTAs and MUAs get awfully confused
!       ;; when confronted with a message with a MIME-Version header and
!       ;; without a Content-Type header.  For instance, Solaris'
!       ;; /usr/bin/mail.
!       (unless content-type-p
! 	(goto-char (point-min))
! 	(re-search-forward "^MIME-Version:")
! 	(forward-line 1)
! 	(insert "Content-Type: text/plain; charset=us-ascii\n")))))
  
  (provide 'message)
  
*** pub/pgnus/lisp/mml.el	Fri Feb 26 18:01:07 1999
--- pgnus/lisp/mml.el	Fri Feb 26 19:54:27 1999
***************
*** 493,499 ****
  		(if (null arg) (not mml-mode)
  		  (> (prefix-numeric-value arg) 0))))
        nil
-     (add-minor-mode 'mml-mode " MML" mml-mode-map)
      (set (make-local-variable 'mml-mode) t)
      (unless (assq 'mml-mode minor-mode-alist)
        (push `(mml-mode " MML") minor-mode-alist))
--- 493,498 ----
*** pub/pgnus/lisp/nndoc.el	Thu Feb 11 06:02:24 1999
--- pgnus/lisp/nndoc.el	Fri Feb 26 19:54:27 1999
***************
*** 137,143 ****
  (defvoo nndoc-head-begin-function nil)
  (defvoo nndoc-body-end nil)
  ;; nndoc-dissection-alist is a list of sublists.  Each sublist holds the
! ;; following items.  ARTICLE act as the association key and is an ordinal
  ;; starting at 1.  HEAD-BEGIN [0], HEAD-END [1], BODY-BEGIN [2] and BODY-END
  ;; [3] are positions in the `nndoc' buffer.  LINE-COUNT [4] is a count of
  ;; lines in the body.  For MIME dissections only, ARTICLE-INSERT [5] and
--- 137,143 ----
  (defvoo nndoc-head-begin-function nil)
  (defvoo nndoc-body-end nil)
  ;; nndoc-dissection-alist is a list of sublists.  Each sublist holds the
! ;; following items.  ARTICLE acts as the association key and is an ordinal
  ;; starting at 1.  HEAD-BEGIN [0], HEAD-END [1], BODY-BEGIN [2] and BODY-END
  ;; [3] are positions in the `nndoc' buffer.  LINE-COUNT [4] is a count of
  ;; lines in the body.  For MIME dissections only, ARTICLE-INSERT [5] and
***************
*** 646,661 ****
  	(message-id (nnmail-message-id))
  	head-end body-begin summary-insert message-rfc822 multipart-any
  	subject content-type type subtype boundary-regexp)
!       ;; Gracefully handle a missing body.
!       (goto-char head-begin)
!       (if (search-forward "\n\n" body-end t)
! 	  (setq head-end (1- (point))
! 		body-begin (point))
        (setq head-end body-end
  	    body-begin body-end))
      (narrow-to-region head-begin head-end)
!       ;; Save MIME attributes.
!       (goto-char head-begin)
      (setq content-type (message-fetch-field "Content-Type"))
      (when content-type
        (when (string-match
--- 646,661 ----
  	(message-id (nnmail-message-id))
  	head-end body-begin summary-insert message-rfc822 multipart-any
  	subject content-type type subtype boundary-regexp)
!     ;; Gracefully handle a missing body.
!     (goto-char head-begin)
!     (if (search-forward "\n\n" body-end t)
! 	(setq head-end (1- (point))
! 	      body-begin (point))
        (setq head-end body-end
  	    body-begin body-end))
      (narrow-to-region head-begin head-end)
!     ;; Save MIME attributes.
!     (goto-char head-begin)
      (setq content-type (message-fetch-field "Content-Type"))
      (when content-type
        (when (string-match
***************
*** 676,683 ****
        (when (or multipart-any (not article-insert))
  	(setq subject (message-fetch-field "Subject"))))
      (unless type
! 	(setq type "text"
! 	      subtype "plain"))
      ;; Prepare the article and summary inserts.
      (unless article-insert
        (setq article-insert (buffer-substring (point-min) (point-max))
--- 676,683 ----
        (when (or multipart-any (not article-insert))
  	(setq subject (message-fetch-field "Subject"))))
      (unless type
!       (setq type "text"
! 	    subtype "plain"))
      ;; Prepare the article and summary inserts.
      (unless article-insert
        (setq article-insert (buffer-substring (point-min) (point-max))
***************
*** 689,696 ****
  			      (and position multipart-any ".")
  			      (and multipart-any "*")
  			      (and (or position multipart-any) " ")
! 			    (cond ((string= subtype "plain") type)
! 				  ((string= subtype "basic") type)
  				    (t subtype))
  			      ">"
  			      (and subject " ")
--- 689,696 ----
  			      (and position multipart-any ".")
  			      (and multipart-any "*")
  			      (and (or position multipart-any) " ")
! 			      (cond ((string= subtype "plain") type)
! 				    ((string= subtype "basic") type)
  				    (t subtype))
  			      ">"
  			      (and subject " ")
***************
*** 713,725 ****
  				summary-insert)
  		  (replace-match line t t summary-insert)
  		(concat summary-insert line)))))
!       ;; Generate dissection information for this entity.
!       (push (list (incf nndoc-mime-split-ordinal)
! 		  head-begin head-end body-begin body-end
! 		  (count-lines body-begin body-end)
  		article-insert summary-insert)
! 	    nndoc-dissection-alist)
!       ;; Recurse for all sub-entities, if any.
      (widen)
      (cond
       (message-rfc822
--- 713,725 ----
  				summary-insert)
  		  (replace-match line t t summary-insert)
  		(concat summary-insert line)))))
!     ;; Generate dissection information for this entity.
!     (push (list (incf nndoc-mime-split-ordinal)
! 		head-begin head-end body-begin body-end
! 		(count-lines body-begin body-end)
  		article-insert summary-insert)
! 	  nndoc-dissection-alist)
!     ;; Recurse for all sub-entities, if any.
      (widen)
      (cond
       (message-rfc822
*** pub/pgnus/lisp/ChangeLog	Fri Feb 26 18:01:02 1999
--- pgnus/lisp/ChangeLog	Fri Feb 26 19:54:25 1999
***************
*** 1,3 ****
--- 1,16 ----
+ Fri Feb 26 18:54:16 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Pterodactyl Gnus v0.79 is released.
+ 
+ 1999-02-26 18:11:04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-cite.el (gnus-cite-toggle): Don't remove highlighting. 
+ 
+ 	* mml.el (mml-mode): Don't use add-minor-mode.
+ 
+ 	* message.el (messgage-inhibit-body-encoding): New variable.
+ 	(message-encode-message-body): Use it.
+ 
  Fri Feb 26 17:00:25 1999  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Pterodactyl Gnus v0.78 is released.
*** pub/pgnus/texi/gnus.texi	Fri Feb 26 18:01:11 1999
--- pgnus/texi/gnus.texi	Fri Feb 26 19:54:31 1999
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Pterodactyl Gnus 0.78 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Pterodactyl Gnus 0.79 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 318,324 ****
  @tex
  
  @titlepage
! @title Pterodactyl Gnus 0.78 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 318,324 ----
  @tex
  
  @titlepage
! @title Pterodactyl Gnus 0.79 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 354,360 ****
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Pterodactyl Gnus 0.78.
  
  @end ifinfo
  
--- 354,360 ----
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Pterodactyl Gnus 0.79.
  
  @end ifinfo
  
*** pub/pgnus/texi/message.texi	Fri Feb 26 18:01:11 1999
--- pgnus/texi/message.texi	Fri Feb 26 19:54:31 1999
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Pterodactyl Message 0.78 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Pterodactyl Message 0.79 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 42,48 ****
  @tex
  
  @titlepage
! @title Pterodactyl Message 0.78 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 42,48 ----
  @tex
  
  @titlepage
! @title Pterodactyl Message 0.79 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 83,89 ****
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Pterodactyl Message 0.78.  Message is
  distributed with the Gnus distribution bearing the same version number
  as this manual.
  
--- 83,89 ----
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Pterodactyl Message 0.79.  Message is
  distributed with the Gnus distribution bearing the same version number
  as this manual.