From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/37380 Path: main.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: Can't post-followup or post-forward in nnml groups Date: Thu, 02 Aug 2001 19:59:23 +0900 Organization: Emacsen advocacy group Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035172807 13605 80.91.224.250 (21 Oct 2002 04:00:07 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:00:07 +0000 (UTC) Return-Path: Return-Path: Original-Received: (qmail 2826 invoked from network); 2 Aug 2001 10:59:27 -0000 Original-Received: from quimby.gnus.org (195.204.10.139) by gnus.org with SMTP; 2 Aug 2001 10:59:27 -0000 Original-Received: (from news@localhost) by quimby.gnus.org (8.9.3/8.9.3) id MAA31970 for ding@gnus.org; Thu, 2 Aug 2001 12:59:15 +0200 (CEST) Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-NNTP-Posting-Host: 207.228.244.9 Original-X-Trace: quimby.gnus.org 996749955 20423 207.228.244.9 (2 Aug 2001 10:59:15 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 2 Aug 2001 10:59:15 GMT X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.090004 (Oort Gnus v0.04) Emacs/21.0.104 Original-Lines: 83 Xref: main.gmane.org gmane.emacs.gnus.general:37380 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:37380 --=-=-= >>>>> In >>>>> Katsumi Yamaoka wrote: > I give my wholehearted support to the renaming to `post-method'. Hi, Here is an another solution. The attached patch creates the new group parameter `post-method' and related things. How about it? If it is adopted in Gnus, I will use the following setting instead of the use of the group parameter for each nnml group. (setq gnus-post-method-alist `(("^nnml:" . ,gnus-select-method))) By the way, since I am not good at English writing, I am happy if anyone writes the documentations for this feature in gnus.texi, will you? 2001-08-02 Katsumi Yamaoka * gnus.el (post-method): New group parameter. It also provides the user option `gnus-post-method-alist' and the internal function `gnus-parameter-post-method'. * gnus-msg.el (gnus-post-method): Bind the value of `gnus-post-method' to the group parameter if it is defined. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=post-method.patch --- gnus-msg.el~ Wed Aug 1 01:02:04 2001 +++ gnus-msg.el Thu Aug 2 10:58:02 2001 @@ -649,9 +649,9 @@ (defun gnus-post-method (arg group &optional silent) "Return the posting method based on GROUP and ARG. If SILENT, don't prompt the user." - (let ((group-method - (or (car (gnus-group-find-parameter group 'gnus-post-method t)) - (gnus-find-method-for-group group)))) + (let ((gnus-post-method (or (gnus-parameter-post-method group) + gnus-post-method)) + (group-method (gnus-find-method-for-group group))) (cond ;; If the group-method is nil (which shouldn't happen) we use ;; the default method. --- gnus.el~ Sun Jul 29 21:58:27 2001 +++ gnus.el Thu Aug 2 10:58:02 2001 @@ -1582,6 +1582,28 @@ :parameter-document "\ The default charset to use in the group.") +(gnus-define-group-parameter + post-method + :type list + :function-document + "Return a posting method for GROUP." + :variable gnus-post-method-alist + :variable-document + "Alist of regexps (to match group names) and method to be used when +posting an article." + :variable-group gnus-group-foreign + :parameter-type + '(choice :tag "Posting Method" + (const nil) + (const current) + (const native) + (list :convert-widget + (lambda (widget) + (list 'sexp :tag "Methods" + :value gnus-select-method)))) + :parameter-document + "Posting method for this group.") + (defcustom gnus-group-uncollapsed-levels 1 "Number of group name elements to leave alone when making a short group name." :group 'gnus-group-visual --=-=-=--