Mercurial > emacs

changeset 102154:3da2fdefd254

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sc-mail-glom-frame): Handle a "From " line at the start of the headers. (sc-mail-check-from): New function.
author Glenn Morris <rgm@gnu.org>
date Sat, 21 Feb 2009 03:14:04 +0000
parents 603bb57bb542
children c0cacccaa351
files lisp/ChangeLog lisp/mail/supercite.el
diffstat 2 files changed, 20 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Feb 20 16:30:53 2009 +0000
+++ b/lisp/ChangeLog	Sat Feb 21 03:14:04 2009 +0000
@@ -1,3 +1,9 @@
+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):
--- a/lisp/mail/supercite.el	Fri Feb 20 16:30:53 2009 +0000
+++ b/lisp/mail/supercite.el	Sat Feb 21 03:14:04 2009 +0000
@@ -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 @@
   "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 @@
 (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