Mercurial > emacs
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.