changeset 101896:97a01032d9d2

(rmail-msg-restore-non-pruned-header): Remove unneeded autoload of function that no longer exists. (rmail-toggle-header): Declare. (message-forward-rmail-make-body): Handle mbox Rmail.
author Glenn Morris <rgm@gnu.org>
date Sat, 07 Feb 2009 22:41:04 +0000
parents 47c373e3db6c
children d08c7c69fefe
files lisp/gnus/ChangeLog lisp/gnus/message.el
diffstat 2 files changed, 13 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Sat Feb 07 21:59:35 2009 +0000
+++ b/lisp/gnus/ChangeLog	Sat Feb 07 22:41:04 2009 +0000
@@ -1,3 +1,10 @@
+2009-02-07  Glenn Morris  <rgm@gnu.org>
+
+	* message.el (rmail-msg-restore-non-pruned-header): Remove unneeded
+	autoload of function that no longer exists.
+	(rmail-toggle-header): Declare.
+	(message-forward-rmail-make-body): Handle mbox Rmail.
+
 2009-01-31  Glenn Morris  <rgm@gnu.org>
 
 	* gnus-sum.el (gnus-summary-next-article): XEmacs-friendly version of
--- a/lisp/gnus/message.el	Sat Feb 07 21:59:35 2009 +0000
+++ b/lisp/gnus/message.el	Sat Feb 07 22:41:04 2009 +0000
@@ -1824,7 +1824,6 @@
 (autoload 'nnvirtual-find-group-art "nnvirtual")
 (autoload 'rmail-dont-reply-to "mail-utils")
 (autoload 'rmail-msg-is-pruned "rmail")
-(autoload 'rmail-msg-restore-non-pruned-header "rmail")
 (autoload 'rmail-output "rmailout")
 
 
@@ -5222,6 +5221,7 @@
 	    (if (and message-fcc-handler-function
 		     (not (eq message-fcc-handler-function 'rmail-output)))
 		(funcall message-fcc-handler-function file)
+	      ;; FIXME broken in Emacs CVS?  Does it work in 22?
 	      (if (and (file-readable-p file) (mail-file-babyl-p file))
 		  (rmail-output file 1 nil t)
 		(let ((mail-use-rfc822 t))
@@ -7232,12 +7232,16 @@
       (message-forward-make-body-plain forward-buffer)))
   (message-position-point))
 
+(declare-function rmail-toggle-header "rmail" (&optional arg))
+
 ;;;###autoload
 (defun message-forward-rmail-make-body (forward-buffer)
   (save-window-excursion
     (set-buffer forward-buffer)
     (if (rmail-msg-is-pruned)
-	(rmail-msg-restore-non-pruned-header)))
+	(if (fboundp 'rmail-msg-restore-non-pruned-header)
+	    (rmail-msg-restore-non-pruned-header) ; Emacs 22
+	  (rmail-toggle-header 0))))		  ; Emacs 23
   (message-forward-make-body forward-buffer))
 
 ;; Fixme: Should have defcustom.