[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp ChangeLog mail/supercite.el
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] emacs/lisp ChangeLog mail/supercite.el |
Date: |
Sat, 21 Feb 2009 03:14:07 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 09/02/21 03:14:07
Modified files:
lisp : ChangeLog
lisp/mail : supercite.el
Log message:
(sc-mail-glom-frame): Handle a "From " line at the start of the headers.
(sc-mail-check-from): New function.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15372&r2=1.15373
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/mail/supercite.el?cvsroot=emacs&r1=1.69&r2=1.70
Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15372
retrieving revision 1.15373
diff -u -b -r1.15372 -r1.15373
--- ChangeLog 20 Feb 2009 16:30:53 -0000 1.15372
+++ ChangeLog 21 Feb 2009 03:14:04 -0000 1.15373
@@ -1,3 +1,9 @@
+2009-02-21 Glenn Morris <address@hidden>
+
+ * 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 <address@hidden>
* progmodes/python.el (python-shift-left, python-shift-right):
Index: mail/supercite.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/mail/supercite.el,v
retrieving revision 1.69
retrieving revision 1.70
diff -u -b -r1.69 -r1.70
--- mail/supercite.el 5 Jan 2009 03:22:37 -0000 1.69
+++ mail/supercite.el 21 Feb 2009 03:14:07 -0000 1.70
@@ -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 <address@hidden>
;; Maintainer: Glenn Morris <address@hidden>
@@ -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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] emacs/lisp ChangeLog mail/supercite.el,
Glenn Morris <=