mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-21 07:30:50 -08:00
Code Issues Projects Releases Wiki Activity

lisp/gnus/message.el (message-insert-formatted-citation-line): Change %F to fall back to email address if no first name could be determined

Browse source
This commit is contained in:
Adam Sjøgren 2015-03-08 10:06:51 +00:00 • committed by Katsumi Yamaoka
parent bcf89ff335
commit 0f2fd5603a
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View file

@ -1,3 +1,8 @@
2015-03-08 Adam Sjøgren <asjo@koldfront.dk>
* message.el (message-insert-formatted-citation-line): Change %F to
fall back to email address if no first name could be determined.
2015-03-07 Stefan Monnier <monnier@iro.umontreal.ca>
* registry.el (registry-lookup-breaks-before-lexbind, registry-lookup)

5
lisp/gnus/message.el
View file

@ -989,7 +989,8 @@ are replaced:
%n The mail address, e.g. \"john.doe@example.invalid\".
%N The real name if present, e.g.: \"John Doe\", else fall
back to the mail address.
%F The first name if present, e.g.: \"John\".
%F The first name if present, e.g.: \"John\", else fall
back to the mail address.
%L The last name if present, e.g.: \"Doe\".
%Z, %z The time zone in the numeric form, e.g.:\"+0000\".
@ -4039,7 +4040,7 @@ See `message-citation-line-format'."
(setq fname lname lname newlname)))))
;; The following letters are not used in `format-time-string':
(push ?E lst) (push "<E>" lst)
(push ?F lst) (push fname lst)
(push ?F lst) (push (or fname name-or-net) lst)
;; We might want to use "" instead of "<X>" later.
(push ?J lst) (push "<J>" lst)
(push ?K lst) (push "<K>" lst)