lisp/gnus/message.el (message-insert-formatted-citation-line): Change %F to fall...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5d699e0be2775dae44a92774b7280c5811ca9721..2ee0c56c7f5e800f96f5370a775f02746676eb94 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a06de2a64147f9b0b74ea5c7d60e7eafb2f2d78b..112f0ba127c79f4de6edf881930bea4e0514d69f 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -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)