[PATCH] Make message-insert-citation-line works with nnrss groups

[Andrea Russo <rast4ndy@gmail.com>]

Hi,

There is a bug in `message-insert-citation-line' that happens when
trying to reply to an article in a nnrss group.

Various blogging software doesn't set a `From' header in blog posts,
so when gnus tries to cite the author of the post, it hits a `Wrong
type argument' error.

This patch tries to fix this.

Best Regards,
Andrea Russo.

--- orig/lisp/gnus/ChangeLog
+++ mod/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-14  Andrea Russo  <rast4ndy@gmail.com>
+
+	* message.el (message-insert-citation-line): Check if the from header
+	is nil.  This may happens in articles from nnrss groups.
+


--- orig/lisp/gnus/message.el
+++ mod/lisp/gnus/message.el
@@ -3346,9 +3346,11 @@
 (defun message-insert-citation-line ()
   "Insert a simple citation line."
   (when message-reply-headers
-    (insert (mail-header-from message-reply-headers) " writes:")
-    (newline)
-    (newline)))
+    (let ((from (mail-header-from message-reply-headers)))
+      (when from
+	(insert from " writes:"))
+      (newline)
+      (newline))))
 
 (defun message-position-on-field (header &rest afters)
   (let ((case-fold-search t))