info-gnus-english
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: X-post and/or fu2


From: Reiner Steib
Subject: Re: X-post and/or fu2
Date: Mon, 01 Nov 2004 15:11:10 +0100
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/21.3.50 (gnu/linux)

On Mon, Nov 01 2004, Xavier Maillard wrote:

> I often do C-c C-f x to X-post and fu2 on different group. I
> currently use several NNTP server and for the life of me don't
> know why I can't expand the newsgroup name without having to add
> the method in front of it.

The following patch adds all (not only nntp groups) to the completion
list.  I'm not sure if this is a good idea, though.  Could you please
test and report back.

--8<---------------cut here---------------start------------->8---
--- message.el  18 Oct 2004 15:09:59 +0200      6.392.2.14
+++ message.el  01 Nov 2004 14:48:22 +0100      
@@ -1881,8 +1881,11 @@
   (interactive
    (list ; Completion based on Gnus
     (completing-read "Followup To: "
-                    (if (boundp 'gnus-newsrc-alist)
-                        gnus-newsrc-alist)
+                    (and (boundp 'gnus-newsrc-alist)
+                         (fboundp 'gnus-group-real-name)
+                         (mapcar (lambda (el)
+                                   (gnus-group-real-name (car el)))
+                                 gnus-newsrc-alist))
                     nil nil '("poster" . 0)
                     (if (boundp 'gnus-group-history)
                         'gnus-group-history))))
@@ -1958,8 +1961,11 @@
   (interactive
    (list ; Completion based on Gnus
     (completing-read "Followup To: "
-                    (if (boundp 'gnus-newsrc-alist)
-                        gnus-newsrc-alist)
+                    (and (boundp 'gnus-newsrc-alist)
+                         (fboundp 'gnus-group-real-name)
+                         (mapcar (lambda (el)
+                                   (gnus-group-real-name (car el)))
+                                 gnus-newsrc-alist))
                     nil nil '("poster" . 0)
                     (if (boundp 'gnus-group-history)
                         'gnus-group-history))))
--8<---------------cut here---------------end--------------->8---

> In fact, say I want to X-post/Fu2 on comp.emacs. If I want Gnus
> to say it has found a match, I have to explicitly say:
> nntp+server:comp.emacs otherwise, just typing comp.emacs doesn't
> match and Gnus asks me whether I want to use a possibly unknown
> group.

Sorry, I don't understand what your problem is here.  Could you be
more specific?  gnus-select-method, gnus-secondary-select-methods, is
it a foreign group?  What headers (Newsgroups, Followup-To,
X-Draft-From) does the message have exactly before sending?

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/


reply via email to

[Prev in Thread] Current Thread [Next in Thread]