Posting to foreign servers broken?

[Chris Green <cmg@uab.edu>]

Using XEmacs 21.4.5

Just noticed with CVS Ding that posting to foreign newsgroup servers
using C-u 1 C-c C-c tries to use nntp-address rather than the method
listed in the X-Draft-From line

(gnus-find-method-for-group "nntp+ecelx00.eng.uab.edu:uab-ece-news.classes.ee433")
does indeed return "ecelx00.eng.uab.edu:uab-ece-news.classes.ee433"
though deep inside message-send-and-exit, it's calling (intern
"nntp-address") and I can't figure out why.

Any help would be appreciated 

X-Draft-From: ("nntp+ecelx00.eng.uab.edu:uab-ece-news.classes.ee433" 275)


working around with this for now...

(defun cmg:uab-kludge ()
  (interactive)
  (let ((nntp-address "ecelx00.eng.uab.edu"))
    (message-send-and-exit)))


Here's the ugly backtrace in the hopes it will help someone find whats
going on.

Return value: ("nntp" post address prompt-address physical-address)
  assoc("nntp" (("nntp" post address prompt-address physical-address) ("nnspool" post address) ("nnvirtual" post-mail virtual prompt-address) ("nnmbox" mail respool address) ("nnml" post-mail respool address) ("nnmh" mail respool address) ("nndir" post-mail prompt-address physical-address) ("nneething" none address prompt-address physical-address) ("nndoc" none address prompt-address) ("nnbabyl" mail address respool) ("nnkiboze" post virtual) ("nnsoup" post-mail address) ("nndraft" post-mail) ("nnfolder" mail respool address) ("nngateway" post-mail address prompt-address physical-address) ("nnweb" none) ("nnslashdot" post) ("nnultimate" none) ("nnrss" none) ("nnwfm" none) ("nnwarchive" none) ("nnlistserv" none) ("nnagent" post-mail) ("nnimap" post-mail address prompt-address physical-address) ("nnir" mail)))
* byte-code("..." [method-name servers group server opened method intern-soft gnus-group-name-to-method 2 nil 4 "native" assoc format "%s:%s" "+" intern "%s-address" "" symbol-name address "-address" physical-address append gnus-select-method info gnus-newsrc-hashtb gnus-opened-servers gnus-valid-select-methods gnus-override-method gnus-server-alist gnus-predefined-server-alist gnus-secondary-select-methods] 7)
* gnus-find-method-for-group("nntp+ecelx00.eng.uab.edu:uab-ece-news.test")
  gnus-post-method(1 "nntp+ecelx00.eng.uab.edu:uab-ece-news.test")
  (lambda (arg) (gnus-post-method arg "nntp+ecelx00.eng.uab.edu:uab-ece-news.test"))(1)
  byte-code("..." [group message-syntax-checks alist result item method message-generate-new-buffer-clone-locals " *message temp*" nil message-functionp message-narrow-to-headers-or-head message-fetch-field "Newsgroups" "Followup-To" gnus-find-method-for-group assoc string-match "" append (existing-newsgroups . disabled) t gnus-setup-posting-charset message-check-news-body-syntax message-narrow-to-headers message-generate-headers message-insert-canlock run-hooks message-header-hook (valid-newsgroups . disabled) message-cleanup-headers message-check-news-syntax ((kill-buffer tembuf)) buffer-disable-undo erase-buffer buffer-substring-no-properties message-encode-message-body Lines (Lines) message-remove-header mail-encode-encoded-word-buffer ?\n re-search-forward "^" regexp-quote "\n" replace-match -1 message-send-news-hook gnus-open-server message ...] 5)
  message-send-news(1)
  message-send-via-news(1)
  message-send(1)
  byte-code("..." [message-kill-buffer-on-exit arg message-exit-actions actions buf message-send buffer-name kill-buffer bury-buffer message-bury message-do-actions t] 2)
  message-send-and-exit(1)
  (lambda nil "Call the message-send-and-exit function with a positive number argument\nto make it post the message on the foreign NNTP server of a group, instead\nof the default NNTP server" (interactive) (message-send-and-exit 1))()
  call-interactively(message-send-and-exit-with-prefix)



-- 
Chris Green <cmg@uab.edu>
To err is human, to moo bovine.