APPROVE COMMIT
NOTE: This patch has been committed.
supercite patch:
ChangeLog files diff command: cvs -q diff -U 0
Files affected: ChangeLog
Source files diff command: cvs -q diff -uN
Files affected: supercite.el
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/supercite/ChangeLog,v
retrieving revision 1.20
diff -u -p -U0 -r1.20 ChangeLog
--- ChangeLog 31 Oct 2003 17:10:26 -0000 1.20
+++ ChangeLog 29 Oct 2005 06:46:25 -0000
@@ -0,0 +1,6 @@
+2005-10-29 Steve Youngs <steve(a)sxemacs.org>
+
+ * supercite.el (sc-extract-address-components): New.
+ (sc-attribs-extract-namestring): Use it.
+ From: Nelson Ferreira <nelson.ferreira(a)ieee.org>
+
Index: supercite.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/supercite/supercite.el,v
retrieving revision 1.12
diff -u -p -u -r1.12 supercite.el
--- supercite.el 14 Aug 2001 07:26:20 -0000 1.12
+++ supercite.el 29 Oct 2005 06:46:15 -0000
@@ -35,6 +35,7 @@
;; |Mail and news reply citation package
;; |1993/09/22 18:58:46|3.1|
+;; njsf 2005/10/28: Added customize for extract address components
;; sb 1997/May/07: Add autoloads
;; sb 1997/Apr/02: Added attribution function sc-header-author-email-writes
;; which gives attribution in the form -
@@ -96,6 +97,13 @@ It should take as its only parameter an
:type 'function
:group 'supercite)
+(defcustom sc-extract-address-components 'mail-extract-address-components
+ "*Function for extracting address components from a From header.
+One pre-defined function exist: `mail-extract-address-components'."
+:group 'supercite
+:type '(radio (function-item mail-extract-address-components)
+ (function :tag "Other")))
+
(defcustom sc-auto-fill-region-p t
"*If non-nil, automatically fill each paragraph after it has been cited."
:type 'boolean
@@ -1079,7 +1087,7 @@ substring."
(defun sc-attribs-extract-namestring (from)
"Extract the name string from FROM.
This should be the author's full name minus an optional title."
- (let ((from-parts (mail-extract-address-components from)))
+ (let ((from-parts (funcall sc-extract-address-components from)))
(or (car from-parts)
(and (cadr from-parts)
(sc-attribs-emailname (cadr from-parts)))
--
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
| I am Dyslexic of Borg. |
| Fusistance is retile. Your arse will be laminated. |
|------------------------------------<steve(a)sxemacs.org>---|
Show replies by date