[gnus git] branch master updated: m0-7-20-gb925525 =1= message.el (message-insert-formatted-citation-line): handle case I broke - LASTNAME, FIRSTNAME.
Adam Sj??gren <[email protected]>
| Newsgroups | gmane.emacs.gnus.cvs |
|---|---|
| Message-ID | <[email protected]> |
via b92552500dc7796df605f37430daa09213b1eca2 (commit)
from 3347a965e2216d80b867d80c2edfab8ac5bd6aa2 (commit)
- Log -----------------------------------------------------------------
commit b92552500dc7796df605f37430daa09213b1eca2
Author: Adam Sjøgren <[email protected]>
Date: Sun May 19 20:59:23 2013 +0200
message.el (message-insert-formatted-citation-line): handle case I broke - LASTNAME, FIRSTNAME.
diff --git a/lisp/message.el b/lisp/message.el
index 2374314..ca1a2e6 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3997,7 +3997,10 @@ See `message-citation-line-format'."
((or (= count 2) (= count 3)) (setq fname (car names)
lname (mapconcat 'identity (cdr names) " ")))
((> count 3) (setq fname (mapconcat 'identity (butlast names (- count 2)) " ")
- lname (mapconcat 'identity (nthcdr 2 names) " "))) )))
+ lname (mapconcat 'identity (nthcdr 2 names) " "))) )
+ (when (string-match "\\(.*\\),\\'" fname)
+ (let ((newlname (match-string 1 fname)))
+ (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)
-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.
Summary of changes:
lisp/message.el | 5 ++++-
1 files changed, 4 insertions(+), 1 deletions(-)
This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".
The branch, master has been updated
hooks/post-receive
--
Gnus Project