minor typo

git-svn-id: file:///svn/tfheen/trunk/dotfiles@795 8da78d58-1cd3-0310-bee5-d77bd1b3e8bf

diff --git a/gnus b/gnus
index d8633aae6c3ef1f1ce63cd688940d88f653e6c22..c80478b853f64e05a3f1e2dcfd01c8f4c226d78a 100644 (file)
--- a/gnus
+++ b/gnus
@@ -503,7 +503,7 @@ inserts \" characters."
   (if (string-equal gnus-newsgroup-name "nnml:drift.news.nag.submissions")
       "  "
     (when message-reply-headers
-      (let ((author (mail-header-from message-reply-headers)))
+      ((let ((author (or (mail-header-from message-reply-headers) "")))
        (string-match "[^@ ]+@[^@ ]+" author)
        (insert "* "(replace-match "" nil nil author) "\n\n")))))