Commit a8d4467b authored by Glenn Morris's avatar Glenn Morris
Browse files

(sc-mail-glom-frame): Handle a "From " line at the start of the headers.

(sc-mail-check-from): New function.
parent 3ba6d4ed
2009-02-21 Glenn Morris <rgm@gnu.org>
* mail/supercite.el (sc-mail-glom-frame): Handle a "From " line
at the start of the headers.
(sc-mail-check-from): New function.
2009-02-20 Martin Rudalics <rudalics@gmx.at>
 
* progmodes/python.el (python-shift-left, python-shift-right):
......
;;; 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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment