mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

(metamail-interpret-body): Remove Rmail-specific hack that is no

Browse source 
longer appropriate to mbox Rmail.
This commit is contained in:
Glenn Morris 2009-02-07 03:03:57 +00:00
parent 8acdd74884
commit cfb4688eff
2 changed files with 36 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/ChangeLog
View file

@ -1,3 +1,24 @@
2009-02-07 Alex Schroeder <alex@gnu.org>
* mail/unrmail.el (unrmail): Use regexps to find message separators so
as not to match any fake rmime.el separators. Remove any sections added
by rmime.el.
2009-02-07 Glenn Morris <rgm@gnu.org>
* mail/metamail.el (metamail-interpret-body): Remove Rmail-specific hack
that is no longer appropriate to mbox Rmail.
* mail/rmailsum.el (rmail-create-summary-line): Widen the view buffer
before trying to move to the start of the message.
(rmail-summary-undelete-many, rmail-summary-rmail-update):
Fix rmail-set-attribute calls.
* mail/sendmail.el (mail-bury-selects-summary, mail-yank-original):
Doc fix.
(rmail-output-to-rmail-buffer): Autoload it.
(mail-do-fcc): Give it a doc string. Update for mbox Rmail, simplify.
2009-02-06 Glenn Morris <rgm@gnu.org>
* mail/unrmail.el (unrmail): Use current-time-string.

20
lisp/mail/metamail.el
View file

@ -121,11 +121,21 @@ Its header part is not interpreted at all."
(append metamail-switches
(list "-b" "-c" contype "-E" encoding))))
(metamail-region end (point-max) viewmode nil nodisplay))
;; Mode specific hack.
(cond ((eq major-mode 'rmail-mode)
;; Adjust the marker of this message if in Rmail mode buffer.
(set-marker (aref rmail-message-vector (1+ rmail-current-message))
(point-max))))
;; This mode specific hack is no longer appropriate in mbox Rmail.
;; Pre-mbox, we have just modified the actual folder, so we
;; update the message-vector with the new end position of the
;; current message. In mbox Rmail, all we have done is modify a
;; display copy of the message. Note also that point-max is a
;; marker in the wrong buffer: the message-vector contains
;; markers in rmail-view-buffer (which is not in rmail-mode).
;; So this hack actually breaks the message-vector.
;; If you're calling this on the actual rmail-view-buffer (or a
;; non-swapped rmail-buffer), you would still need this hack.
;; But you're not going to do that.
;;; (cond ((eq major-mode 'rmail-mode)
;;; ;; Adjust the marker of this message if in Rmail mode buffer.
;;; (set-marker (aref rmail-message-vector (1+ rmail-current-message))
;;; (point-max))))
)))
;;;###autoload