(gnus-summary-resend-message-edit): Avoid error when

fields aren't found.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5384cb8..faf9ead 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-10-18  Jesper Harder  <harder@ifa.au.dk>
+
+       * gnus-msg.el (gnus-summary-resend-message-edit): Avoid error when
+       fields aren't found.
+
 2003-10-18  Simon Josefsson  <jas@extundo.com>
 
        * message.el (message-forward-make-body-plain)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 0357e68..9744339 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1320,8 +1320,8 @@ composing a new message."
        (goto-char (point-max))
        (insert mail-header-separator)
        (goto-char (point-min))
-       (re-search-forward "^To:\\|^Newsgroups:" nil 'move)
-       (forward-char 1)
+       (when (re-search-forward "^To:\\|^Newsgroups:" nil 'move)
+         (forward-char 1))
        (widen)))))
 
 (defun gnus-summary-post-forward (&optional arg)