diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-02-21 03:14:04 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-02-21 03:14:04 +0000 |
| commit | a8d4467bf84361b154adb68f864e233063982e5d (patch) | |
| tree | 58113cebca6c9830d5593abdd0a11febf8a621da /lisp/mail/supercite.el | |
| parent | 3ba6d4ed56d9d9b6d4c570d057ad9ce11e3ae0ff (diff) | |
| download | emacs-a8d4467bf84361b154adb68f864e233063982e5d.tar.gz emacs-a8d4467bf84361b154adb68f864e233063982e5d.tar.bz2 emacs-a8d4467bf84361b154adb68f864e233063982e5d.zip | |
(sc-mail-glom-frame): Handle a "From " line at the start of the headers.
(sc-mail-check-from): New function.
Diffstat (limited to 'lisp/mail/supercite.el')
| -rw-r--r-- | lisp/mail/supercite.el | 16 |
1 files changed, 14 insertions, 2 deletions
diff --git a/lisp/mail/supercite.el b/lisp/mail/supercite.el index d31f73b17a1..a37821fbefa 100644 --- a/lisp/mail/supercite.el +++ b/lisp/mail/supercite.el @@ -1,7 +1,7 @@ ;;; supercite.el --- minor mode for citing mail and news replies -;; Copyright (C) 1993, 1997, 2001, 2002, 2003, 2004, -;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc. +;; Copyright (C) 1993, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007, +;; 2008, 2009 Free Software Foundation, Inc. ;; Author: 1993 Barry A. Warsaw <bwarsaw@python.org> ;; Maintainer: Glenn Morris <rgm@gnu.org> @@ -700,6 +700,7 @@ the list should be unique." "For minibuffer completion on mail field modifications.") (defvar sc-mail-glom-frame '((begin (setq sc-mail-headers-start (point))) + ("^From " (sc-mail-check-from) nil nil) ("^x-attribution:[ \t]+.*$" (sc-mail-fetch-field t) nil t) ("^\\S +:.*$" (sc-mail-fetch-field) nil t) ("^$" (list 'abort '(step . 0))) @@ -712,6 +713,17 @@ the list should be unique." (defvar curline) ; dynamic bondage ;; regi functions + +;; http://lists.gnu.org/archive/html/emacs-devel/2009-02/msg00691.html +;; When rmail replies to a message with full headers visible, the "From " +;; line can be included. +(defun sc-mail-check-from () + "Deal with a \"From \" line in the header. +Such a line should only occur at the very start of the headers." + (and sc-mail-warn-if-non-rfc822-p + (not (= (point) sc-mail-headers-start)) + (sc-mail-error-in-mail-field))) + (defun sc-mail-fetch-field (&optional attribs-p) "Insert a key and value into `sc-mail-info' alist. If optional ATTRIBS-P is non-nil, the key/value pair is placed in |