[AC] [PACKAGES (supercite)] Customisable mail address extract func.

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&gt; + + * supercite.el (sc-extract-address-components): New. + (sc-attribs-extract-namestring): Use it. + From: Nelson Ferreira <nelson.ferreira(a)ieee.org&gt; + 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. | |------------------------------------&lt;steve(a)sxemacs.org&gt;---|