Re: BUG: ngnus-0.10 can't send messages

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> Uwe Brauer wrote:
> the question still puzzles me, why does everything work with ngnus-0.6?

>>>>> In <87od60tp06.fsf@mat.ucm.es> Uwe Brauer wrote:
> Debugger entered--Lisp error: (wrong-type-argument stringp ("Uwe Brauer" "oub@mat.ucm.es"))
>   string-match("\\<Mc\\([^aeiou]\\)" ("Uwe Brauer" "oub@mat.ucm.es") 0)
>   mail-extract-address-components("Uwe Brauer <oub@mat.ucm.es>" t)
>   message-bogus-recipient-p("Uwe Brauer <oub@mat.ucm.es>")
>   message-check-recipients()
>   message-fix-before-sending()
>   message-send(nil)
>   message-send-and-exit(nil)
>   call-interactively(message-send-and-exit)

Do you know where the regexp "\\<Mc\\([^aeiou]\\)" comes from?
Isn't it in your XEmacs init file?  GREP found no file containing
"aeiou" in my system.

In addition, I found in and around `message-bogus-recipient-p'
and `mail-extract-address-components' no `string-match' form in
which the third argument `0' (or equivalent) is specified.  So,
I guess the backtrace might have reported the one caused by the
one other than `mail-extract-address-components'.  How about re-
reproducing the problem after loading some doubtful el (not elc)
files?  Those will be the ones that the following program reports
(type C-j at the end of the last line in the *scratch* buffer):

(with-temp-buffer
  (emacs-lisp-mode)
  (let ((cur (current-buffer))
	files)
    (dolist (dir load-path)
      (dolist (file (directory-files dir t "\\.el\\(\\.gz\\)?\\'"))
	(message "%s" file)
	(condition-case nil
	    (progn
	      (insert-file-contents file)
	      (goto-char (point-min))
	      (while (re-search-forward "([\t\n\r ]*string-match[\t\n\r ]"
					nil t)
		(goto-char (match-beginning 0))
		(condition-case nil
		    (when (= (length (read cur)) 4)
		      (push file files)
		      (goto-char (point-max)))
		  (error
		   (goto-char (match-end 0)))))
	      (erase-buffer))
	  (error))))
    (nreverse files)))