field "from" doesn't exist.
* message.el (message-setup-1): Setup alternative email before
generate-headers.
+
+ (message-forward-subject-name-subject): Fix the case when the
+ field "from" doesn't exist.
2003-05-07 Dave Love <fx@gnu.org>
(concat "["
(let ((prefix
(or (message-fetch-field "newsgroups")
- (cdr
- (mail-header-parse-address
- (mail-decode-encoded-word-string
- (message-fetch-field "from"))))
+ (let ((from (message-fetch-field "from")))
+ (and from
+ (cdr
+ (mail-header-parse-address
+ (mail-decode-encoded-word-string
+ from)))))
"(nowhere)")))
(if message-forward-decoded-p
prefix