3:13 p.m.
SC failed while trying to cite on this address:
To: "sales(a)dirtcheapdrives.com"<>
Signaling: (wrong-type-argument stringp nil)
string-match("/[GS]=\\([-a-zA-Z0-9_.]+\\)\\|\\([-+a-zA-Z0-9_.]+\\)%" nil)
sc-attribs-%＠-addresses(nil "%")
sc-attribs-emailname(nil)
sc-attribs-extract-namestring("\"sales(a)dirtcheapdrives.com\"<>")
sc-attribs-chop-address("\"sales(a)dirtcheapdrives.com\"<>")
sc-cite-original()
message-yank-original()
gnus-inews-yank-articles((3616))
gnus-summary-reply((3616) nil)
gnus-summary-reply-with-original(nil)
call-interactively(gnus-summary-reply-with-original)
Emacs : XEmacs 21.4 (patch 1) "Copyleft" [Lucid] (i386-debian-linux) of Tue May
22 2001 on eeyore
Package: Supercite version 3.1
current state:
==============
(setq
sc-attrib-selection-list nil
sc-auto-fill-region-p t
sc-blank-lines-after-headers 1
sc-citation-leader " "
sc-citation-delimiter ">"
sc-citation-separator " "
sc-citation-leader-regexp "[ ]*"
sc-citation-root-regexp "[-._a-zA-Z0-9]*"
sc-citation-nonnested-root-regexp "[-._a-zA-Z0-9]+"
sc-citation-delimiter-regexp "[>]+"
sc-citation-separator-regexp "[ ]*"
sc-cite-region-limit t
sc-confirm-always-p t
sc-default-attribution "Anon"
sc-default-author-name "Anonymous"
sc-downcase-p nil
sc-electric-circular-p t
sc-electric-references-p nil
sc-fixup-whitespace-p nil
sc-mail-warn-if-non-rfc822-p t
sc-mumble ""
sc-name-filter-alist '(("\\[.*\\]\\|\\[[^]]*\\|[^[]*\\]" . any)
("^\\(Mr\\|Mrs\\|Ms\\|Dr\\)[.]?$" . 0)
("^\\(Jr\\|Sr\\)[.]?$" . last) ("^ASTS$" . 0)
("^[I]+$" . last))
sc-nested-citation-p nil
sc-nuke-mail-headers 'all
sc-nuke-mail-header-list nil
sc-preferred-attribution-list '("sc-lastchoice" "x-attribution"
"bbdb-attribution" "initials" "firstname"
"lastname")
sc-preferred-header-style 4
sc-reference-tag-string ">>>>> "
sc-rewrite-header-list '((sc-no-header) (sc-header-on-said)
(sc-header-inarticle-writes)
(sc-header-regarding-adds)
(sc-header-attributed-writes)
(sc-header-author-writes) (sc-header-verbose)
(sc-no-blank-line-or-header)
(sc-header-author-email-writes))
sc-titlecue-regexp "\\s +-+\\s +"
sc-use-only-preference-p nil
)
--
Joseph M. Reinhardt, Ph.D. Department of Biomedical Engineering
joe-reinhardt(a)uiowa.edu University of Iowa, Iowa City, IA 52242
Telephone: 319-335-5634 FAX: 319-335-5631
9:27 a.m.
>>>> "Joe" == Joe Reinhardt
<jmr(a)engineering.uiowa.edu> writes:
Joe> SC failed while trying to cite on this address:
Hi Joe, following is not a valid E-mail address anyway:
Joe> To: "sales(a)dirtcheapdrives.com"<>
The string-quoted part is just a comment for MUA to display.
The real address part is empty: <>
A valid version of above address could look like this:
"The DirtCheapDrives Sales Team" <sales(a)dirtcheapdrives.com>
Best regards,
Adrian
Joe> Signaling: (wrong-type-argument stringp nil)
Joe>
string-match("/[GS]=\\([-a-zA-Z0-9_.]+\\)\\|\\([-+a-zA-Z0-9_.]+\\)%" nil)
Joe> sc-attribs-%＠-addresses(nil "%")
Joe> sc-attribs-emailname(nil)
Joe>
sc-attribs-extract-namestring("\"sales(a)dirtcheapdrives.com\"<>")
Joe>
sc-attribs-chop-address("\"sales(a)dirtcheapdrives.com\"<>")
Joe> sc-cite-original()
Joe> message-yank-original()
Joe> gnus-inews-yank-articles((3616))
Joe> gnus-summary-reply((3616) nil)
Joe> gnus-summary-reply-with-original(nil)
Joe> call-interactively(gnus-summary-reply-with-original)
Joe> Emacs : XEmacs 21.4 (patch 1) "Copyleft" [Lucid]
(i386-debian-linux) of Tue May 22 2001 on eeyore
Joe> Package: Supercite version 3.1
Joe> current state:
Joe> ==============
Joe> (setq
Joe> sc-attrib-selection-list nil
Joe> sc-auto-fill-region-p t
Joe> sc-blank-lines-after-headers 1
Joe> sc-citation-leader " "
Joe> sc-citation-delimiter ">"
Joe> sc-citation-separator " "
Joe> sc-citation-leader-regexp "[ ]*"
Joe> sc-citation-root-regexp "[-._a-zA-Z0-9]*"
Joe> sc-citation-nonnested-root-regexp "[-._a-zA-Z0-9]+"
Joe> sc-citation-delimiter-regexp "[>]+"
Joe> sc-citation-separator-regexp "[ ]*"
Joe> sc-cite-region-limit t
Joe> sc-confirm-always-p t
Joe> sc-default-attribution "Anon"
Joe> sc-default-author-name "Anonymous"
Joe> sc-downcase-p nil
Joe> sc-electric-circular-p t
Joe> sc-electric-references-p nil
Joe> sc-fixup-whitespace-p nil
Joe> sc-mail-warn-if-non-rfc822-p t
Joe> sc-mumble ""
Joe> sc-name-filter-alist '(("\\[.*\\]\\|\\[[^]]*\\|[^[]*\\]" .
any)
Joe> ("^\\(Mr\\|Mrs\\|Ms\\|Dr\\)[.]?$" . 0)
Joe> ("^\\(Jr\\|Sr\\)[.]?$" . last) ("^ASTS$" . 0)
Joe> ("^[I]+$" . last))
Joe> sc-nested-citation-p nil
Joe> sc-nuke-mail-headers 'all
Joe> sc-nuke-mail-header-list nil
Joe> sc-preferred-attribution-list '("sc-lastchoice"
"x-attribution"
Joe> "bbdb-attribution" "initials" "firstname"
Joe> "lastname")
Joe> sc-preferred-header-style 4
Joe> sc-reference-tag-string ">>>>> "
Joe> sc-rewrite-header-list '((sc-no-header) (sc-header-on-said)
Joe> (sc-header-inarticle-writes)
Joe> (sc-header-regarding-adds)
Joe> (sc-header-attributed-writes)
Joe> (sc-header-author-writes) (sc-header-verbose)
Joe> (sc-no-blank-line-or-header)
Joe> (sc-header-author-email-writes))
Joe> sc-titlecue-regexp "\\s +-+\\s +"
Joe> sc-use-only-preference-p nil
Joe> )
Joe> --
Joe> Joseph M. Reinhardt, Ph.D. Department of Biomedical Engineering
Joe> joe-reinhardt(a)uiowa.edu University of Iowa, Iowa City, IA 52242
Joe> Telephone: 319-335-5634 FAX: 319-335-5631
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
9:39 p.m.
New subject: [PATCH] packages: sc-attribs-extract-namestring to err on bad from address
Hi All,
this seems to be the best I can come up with.
Any thoughts on this?
Seems better than
Signaling: (wrong-type-argument stringp nil)
still.
Best regards,
Adrian
xemacs-packages/supercite/ChangeLog addition:
2001-08-06 Adrian Aichner <adrian(a)xemacs.org>
* supercite.el (sc-attribs-extract-namestring): Provide error
message when neither full-name nor canonical-address can be
extracted from argument.
packages Patch (cvs -f -z3 diff -u xemacs-packages/supercite/supercite.el):
Index: xemacs-packages/supercite/supercite.el
===================================================================
RCS file: /usr/CVSroot/XEmacs/packages/xemacs-packages/supercite/supercite.el,v
retrieving revision 1.11
diff -u -r1.11 supercite.el
--- xemacs-packages/supercite/supercite.el 2001/01/15 05:54:08 1.11
+++ xemacs-packages/supercite/supercite.el 2001/08/06 20:32:52
＠＠ -1080,9 +1080,10 ＠＠
"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)))
- (if (equal (car from-parts) nil)
- (sc-attribs-emailname (cadr from-parts))
- (car from-parts))))
+ (or (car from-parts)
+ (and (cadr from-parts)
+ (sc-attribs-emailname (cadr from-parts)))
+ (error "cannot extract address components from %s" from))))
(defun sc-attribs-chop-namestring (namestring)
"Convert NAMESTRING to a list of names.
--
Adrian Aichner
mailto:adrian＠xemacs.org
http://www.xemacs.org/
8509
days inactive
8513
days old
2 comments
2 participants
participants (2)
-
Adrian Aichner -
Joe Reinhardt