procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from gnus--devo--0

Browse source 
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1436
This commit is contained in:
Miles Bader 2008-09-30 00:48:01 +00:00
parent 26e06f4464
commit 4520e52783
3 changed files with 21 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2008-09-29 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-read-summary-keys): Check if summary window
exists.
2008-09-27 Glenn Morris <rgm@gnu.org>
* gnus-util.el (mail-header-remove-comments): Autoload it.
@ -7,12 +12,23 @@
* gnus-util.el (gnus-split-references): Strip comments.
(gnus-parent-id): Likewise.
2008-09-26 Reiner Steib <Reiner.Steib@gmx.de>
* message.el (message-confirm-send): Fix version.
2008-09-25 Katsumi Yamaoka <yamaoka@jpl.org>
* message.el (message-idna-to-ascii-rhs-1): Use
mail-extract-address-components rather than mail-header-parse-addresses
that is an alias by default to ietf-drums-parse-addresses that does not
support non-ASCII names in headers' contents.
2008-09-25 Teodor Zlatanov <tzz@lifelogs.com>
* message.el (message-confirm-send): Fixed variable documentation to
avoid the "y/n" wording.
2008-09-25 Francis Litterio <flitterio@gmail.com> (tiny change)
2008-09-25 Francis Litterio <flitterio@gmail.com> (tiny change)
* message.el (message-set-auto-save-file-name): Save to a different
filename so multiple messages (especially drafts) can be recovered.

1
lisp/gnus/gnus-art.el
View file

@ -6378,6 +6378,7 @@ not have a face in `gnus-article-boring-faces'."
(point))))
(when (and (not not-restore-window)
new-sum-point
(window-live-p win)
(with-current-buffer (window-buffer win)
(eq major-mode 'gnus-summary-mode)))
(set-window-point win new-sum-point)

5
lisp/gnus/message.el
View file

@ -445,7 +445,7 @@ nil means let mailer mail back a message to report errors."
"When non-nil, ask for confirmation when sending a message."
:group 'message-sending
:group 'message-mail
:version "22.3" ;; No Gnus
:version "23.1" ;; No Gnus
:link '(custom-manual "(message)Sending Variables")
:type 'boolean)
@ -5633,7 +5633,8 @@ subscribed address (and not the additional To and Cc header contents)."
(mapcar (lambda (rhs) (or (cadr (split-string rhs "@")) ""))
(mapcar 'downcase
(mapcar
'car (mail-header-parse-addresses field))))))
'cadr
(mail-extract-address-components field t))))))
(setq ace (if (string-match "\\`[[:ascii:]]+\\'" rhs)
rhs
(downcase (idna-to-ascii rhs))))