[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el |
Date: |
Mon, 02 Mar 2009 02:19:31 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/03/02 02:19:30
Modified files:
lisp : ChangeLog
lisp/mail : rmail.el
Log message:
(rmail-reply): Use rmail-apply-in-message so that this function has
access to all the headers, not just the visible ones.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15416&r2=1.15417
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/rmail.el?cvsroot=emacs&r1=1.516&r2=1.517
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15416
retrieving revision 1.15417
diff -u -b -r1.15416 -r1.15417
--- ChangeLog 1 Mar 2009 19:20:53 -0000 1.15416
+++ ChangeLog 2 Mar 2009 02:19:24 -0000 1.15417
@@ -1,3 +1,8 @@
+2009-03-02 Glenn Morris <address@hidden>
+
+ * mail/rmail.el (rmail-reply): Use rmail-apply-in-message so that this
+ function has access to all the headers, not just the visible ones.
+
2009-03-01 Chong Yidong <address@hidden>
* abbrev.el (clear-abbrev-table): Always return nil (Bug#2515).
Index: mail/rmail.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/rmail.el,v
retrieving revision 1.516
retrieving revision 1.517
diff -u -b -r1.516 -r1.517
--- mail/rmail.el 1 Mar 2009 00:56:20 -0000 1.516
+++ mail/rmail.el 2 Mar 2009 02:19:30 -0000 1.517
@@ -3300,20 +3300,11 @@
(let (from reply-to cc subject date to message-id references
resent-to resent-cc resent-reply-to
(msgnum rmail-current-message))
- (save-excursion
- (save-restriction
- (widen)
- (if (rmail-buffers-swapped-p)
- (narrow-to-region
- (goto-char (point-min))
- (search-forward "\n\n" nil 'move))
- (goto-char (rmail-msgbeg rmail-current-message))
- (forward-line 1)
- (narrow-to-region
- (point)
- (search-forward "\n\n"
- (rmail-msgend rmail-current-message)
- 'move)))
+ (rmail-apply-in-message
+ rmail-current-message
+ (lambda ()
+ (search-forward "\n\n" nil 'move)
+ (narrow-to-region (point-min) (point))
(setq from (mail-fetch-field "from")
reply-to (or (mail-fetch-field "mail-reply-to" nil t)
(mail-fetch-field "reply-to" nil t)
@@ -3333,12 +3324,11 @@
)
(unless just-sender
(if (mail-fetch-field "mail-followup-to" nil t)
- ;; If this header field is present, use it instead of
- ;; the To and CC fields.
+ ;; If this header field is present, use it instead of the
+ ;; To and CC fields.
(setq to (mail-fetch-field "mail-followup-to" nil t))
(setq cc (or (mail-fetch-field "cc" nil t) "")
to (or (mail-fetch-field "to" nil t) ""))))))
-
;; Merge the resent-to and resent-cc into the to and cc.
;; Bug#512. It's inappropriate to reply to these addresses.
;;; (if (and resent-to (not (equal resent-to "")))
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el,
Glenn Morris <=
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/03/02
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/03/02
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/03/02
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/03/02
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/03/15
- [Emacs-diffs] emacs/lisp ChangeLog mail/rmail.el, Glenn Morris, 2009/03/19