X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/d804ada24efd28b8574e2d9e5d87c364e4223e84..b201b9880e01120b7e64f82c98464c5bea630b0d:/lisp/mail/rmailout.el diff --git a/lisp/mail/rmailout.el b/lisp/mail/rmailout.el index 459b51cf50..234277320a 100644 --- a/lisp/mail/rmailout.el +++ b/lisp/mail/rmailout.el @@ -10,7 +10,7 @@ ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation; either version 2, or (at your option) +;; the Free Software Foundation; either version 3, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, @@ -109,6 +109,8 @@ Set `rmail-default-file' to this name as well as returning it." (or read-file (file-name-nondirectory default-file)) (file-name-directory default-file))))))) +(declare-function rmail-update-summary "rmailsum" (&rest ignore)) + ;;; There are functions elsewhere in Emacs that use this function; ;;; look at them before you change the calling method. ;;;###autoload @@ -378,7 +380,7 @@ The optional fourth argument FROM-GNUS is set when called from GNUS." (rmail-toggle-header)) (if (and (> count 0) (not next-message-p)) (progn - (error + (error "%s" (save-excursion (set-buffer rmailbuf) (format "Only %d message%s appended" num-appended