CVS update by youngs packages/xemacs-packages/supercite ...
User: youngs
Date: 05/10/29 08:47:40
Modified: packages/xemacs-packages/supercite ChangeLog supercite.el
Log:
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>
Revision Changes Path
1.21 +6 -0 XEmacs/packages/xemacs-packages/supercite/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/supercite/ChangeLog,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -p -r1.20 -r1.21
--- ChangeLog 2003/10/31 17:10:26 1.20
+++ ChangeLog 2005/10/29 06:47:39 1.21
＠＠ -1,3 +1,9 ＠＠
+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>
+
2003-10-31 Norbert Koch <viteno(a)xemacs.org>
* Makefile (VERSION): XEmacs package 1.20 released.
1.13 +9 -1 XEmacs/packages/xemacs-packages/supercite/supercite.el
Index: supercite.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/supercite/supercite.el,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -p -r1.12 -r1.13
--- supercite.el 2001/08/14 07:26:20 1.12
+++ supercite.el 2005/10/29 06:47:39 1.13
＠＠ -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)))