diff options
| author | Richard M. Stallman | 2003-12-29 19:52:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-12-29 19:52:25 +0000 |
| commit | 9462bf2c713842c2288982b14648f5df1c19ef05 (patch) | |
| tree | 956cabe42c03e7628897635a9d54fc851d6a2ba4 | |
| parent | 5ef5d6ce31fe96ea47ce8f29cb12b36f16b657d3 (diff) | |
| download | emacs-9462bf2c713842c2288982b14648f5df1c19ef05.tar.gz emacs-9462bf2c713842c2288982b14648f5df1c19ef05.zip | |
(sendmail-user-agent-compose): Use assoc-string.
| -rw-r--r-- | lisp/simple.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index ade177c5b8e..d23ed11c6c3 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -3735,9 +3735,9 @@ See also `read-mail-command' concerning reading mail." | |||
| 3735 | (same-window-buffer-names nil) | 3735 | (same-window-buffer-names nil) |
| 3736 | (same-window-regexps nil)) | 3736 | (same-window-regexps nil)) |
| 3737 | (funcall switch-function "*mail*"))) | 3737 | (funcall switch-function "*mail*"))) |
| 3738 | (let ((cc (cdr (assoc-ignore-case "cc" other-headers))) | 3738 | (let ((cc (cdr (assoc-string "cc" other-headers t))) |
| 3739 | (in-reply-to (cdr (assoc-ignore-case "in-reply-to" other-headers))) | 3739 | (in-reply-to (cdr (assoc-string "in-reply-to" other-headers t))) |
| 3740 | (body (cdr (assoc-ignore-case "body" other-headers)))) | 3740 | (body (cdr (assoc-string "body" other-headers t)))) |
| 3741 | (or (mail continue to subject in-reply-to cc yank-action send-actions) | 3741 | (or (mail continue to subject in-reply-to cc yank-action send-actions) |
| 3742 | continue | 3742 | continue |
| 3743 | (error "Message aborted")) | 3743 | (error "Message aborted")) |