[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101995: message.el (message-get-repl
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101995: message.el (message-get-reply-headers): If we're fed `to-address', then always use that. |
Date: |
Mon, 18 Oct 2010 23:41:03 +0000 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101995
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-10-18 23:41:03 +0000
message:
message.el (message-get-reply-headers): If we're fed `to-address', then
always use that.
gnus-agent.el (gnus-agent-toggle-plugged): Use the right minor mode name in
the mode line spec so that the mode line menu works (bug #2431).
modified:
lisp/gnus/ChangeLog
lisp/gnus/gnus-agent.el
lisp/gnus/message.el
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2010-10-18 22:09:28 +0000
+++ b/lisp/gnus/ChangeLog 2010-10-18 23:41:03 +0000
@@ -1,5 +1,12 @@
2010-10-18 Lars Magne Ingebrigtsen <address@hidden>
+ * gnus-agent.el (gnus-agent-toggle-plugged): Use the right minor mode
+ name in the mode line spec so that the mode line menu works
+ (bug #2431).
+
+ * message.el (message-get-reply-headers): If we're fed `to-address',
+ then always use that.
+
* gnus-art.el (gnus-article-make-menu-bar): The article/group menus
aren't so wide as to need to switch off the edit menu.
=== modified file 'lisp/gnus/gnus-agent.el'
--- a/lisp/gnus/gnus-agent.el 2010-09-30 10:25:45 +0000
+++ b/lisp/gnus/gnus-agent.el 2010-10-18 23:41:03 +0000
@@ -513,8 +513,8 @@
;; Set up the menu.
(when (gnus-visual-p 'agent-menu 'menu)
(funcall (intern (format "gnus-agent-%s-make-menu-bar" buffer))))
- (unless (assq 'gnus-agent-mode minor-mode-alist)
- (push gnus-agent-mode-status minor-mode-alist))
+ (unless (assq mode minor-mode-alist)
+ (push (cons mode (cdr gnus-agent-mode-status)) minor-mode-alist))
(unless (assq mode minor-mode-map-alist)
(push (cons mode (symbol-value (intern (format "gnus-agent-%s-mode-map"
buffer))))
=== modified file 'lisp/gnus/message.el'
--- a/lisp/gnus/message.el 2010-10-11 23:29:33 +0000
+++ b/lisp/gnus/message.el 2010-10-18 23:41:03 +0000
@@ -6568,6 +6568,10 @@
(save-match-data
;; Build (textual) list of new recipient addresses.
(cond
+ (to-address
+ (setq recipients (concat ", " to-address))
+ ;; If the author explicitly asked for a copy, we don't deny it to them.
+ (if mct (setq recipients (concat recipients ", " mct))))
((not wide)
(setq recipients (concat ", " author)))
(address-headers
@@ -6603,10 +6607,6 @@
You may customize the variable `message-use-mail-followup-to', if you
want to get rid of this query permanently.")))
(setq recipients (concat ", " mft)))
- (to-address
- (setq recipients (concat ", " to-address))
- ;; If the author explicitly asked for a copy, we don't deny it to them.
- (if mct (setq recipients (concat recipients ", " mct))))
(t
(setq recipients (if never-mct "" (concat ", " author)))
(if to (setq recipients (concat recipients ", " to)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101995: message.el (message-get-reply-headers): If we're fed `to-address', then always use that.,
Katsumi Yamaoka <=