/[emacs]/emacs/lisp/simple.el
ViewVC logotype

Diff of /emacs/lisp/simple.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.749 by cyd, Mon Sep 12 22:58:55 2005 UTC revision 1.750 by cyd, Thu Sep 15 03:47:22 2005 UTC
# Line 4444  See also `read-mail-command' concerning Line 4444  See also `read-mail-command' concerning
4444    (let ((cc (cdr (assoc-string "cc" other-headers t)))    (let ((cc (cdr (assoc-string "cc" other-headers t)))
4445          (in-reply-to (cdr (assoc-string "in-reply-to" other-headers t)))          (in-reply-to (cdr (assoc-string "in-reply-to" other-headers t)))
4446          (body (cdr (assoc-string "body" other-headers t))))          (body (cdr (assoc-string "body" other-headers t))))
4447      (mail (if continue t 'new)      (or (mail continue to subject in-reply-to cc yank-action send-actions)
4448            to subject in-reply-to cc yank-action send-actions)          continue
4449            (error "Message aborted"))
4450      (save-excursion      (save-excursion
4451        (rfc822-goto-eoh)        (rfc822-goto-eoh)
4452        (while other-headers        (while other-headers

Legend:
Removed from v.1.749  
changed lines
  Added in v.1.750

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26