calling gnus-group-mail with a groupname

calling gnus-group-mail with a groupname

[Chris Green]

Hey folks, I've been trying to give myself a shortcut to a mailing
list group that I don't read with gnus but I have defined a posting
style for by wrapping a call to gnus-group-mail so that it uses the
posting style of the group.  The problem is after defining this
wrapper, I still get prompted for the argument nam

I'm using CVS from a little while ago if that's helps my problem.

(defun cmg:mail-xyz ()
  "Use this to mail using the posting style of xyx"
  (interactive)
  ;; overwrite the group-name function
  (flet ((gnus-group-group-name (&optional arg) "xyz"))
    (gnus-group-mail "xyz"))) ;; I wish it could use an arg groupname


Replacing gnus-group-mail with (message (gnus-group-group-name)) seems
to do the right thing.

Any suggestions?
-- 
Chris Green <cmg@dok.org>
To err is human, to moo bovine.

Re: calling gnus-group-mail with a groupname

[Lars Magne Ingebrigtsen]

Chris Green <cmg@dok.org> writes:

> (defun cmg:mail-xyz ()
>   "Use this to mail using the posting style of xyx"
>   (interactive)
>   ;; overwrite the group-name function
>   (flet ((gnus-group-group-name (&optional arg) "xyz"))
>     (gnus-group-mail "xyz"))) ;; I wish it could use an arg groupname
>
> Replacing gnus-group-mail with (message (gnus-group-group-name)) seems
> to do the right thing.

I've never used flet in Emacs Lisp -- doesn't it have lexical scope?
If it does, that would explain what you're seeing.  (If not, then
it's weirder.)

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: calling gnus-group-mail with a groupname

[Johan Bockgård]

Lars Magne Ingebrigtsen <larsi@gnus.org> writes:

> I've never used flet in Emacs Lisp -- doesn't it have lexical scope?
> If it does, that would explain what you're seeing. (If not, then
> it's weirder.)

No (info "(cl)Function Bindings"):

    While `flet' in Common Lisp establishes a lexical binding of NAME,
    Emacs Lisp `flet' makes a dynamic binding. The result is that
    `flet' affects indirect calls to a function as well as calls
    directly inside the `flet' form itself.

-- 
Johan Bockgård