;; |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 -
+(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'."
+: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."
(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 (
+ (let ((from-parts (-extract-address-components from)))
(sc-attribs-emailname (cadr from-parts)))