OVH Cloud OVH Cloud

Gnus et Fu2

7 réponses
Avatar
Hugues
Bonjour à tous,

je recherche désespérement depuis trop longtemps le raccourci qui
permet de faire un Followup à une news , en se plaçant directement
dans le champ Fu2 ?

C'est pratique, et ca evite de perdre du temps..

D'avance merci beaucoup !

--
Hugues - Linux Addict

7 réponses

Avatar
Damien Wyart
* Hugues in fr.comp.applications.emacs:
je recherche désespérement depuis trop longtemps le raccourci qui
permet de faire un Followup à une news , en se plaçant directement
dans le champ Fu2 ?



Si j'ai bien compris la question, c'est C-c C-f C-f (en mode Message)
que tu cherches.

--
DW
Avatar
Hugues
Ce cher Damien Wyart a dit :

* Hugues in fr.comp.applications.emacs:
je recherche désespérement depuis trop longtemps le raccourci qui
permet de faire un Followup à une news , en se plaçant directement
dans le champ Fu2 ?



Si j'ai bien compris la question, c'est C-c C-f C-f (en mode Message)
que tu cherches.



Presque, je voudrais pouvoir le faire depuis le mode Summary, à la place
du 'F' par exemple.

Mais je retiens ton raccourci qui est quand même intéressant ;)

--
Hugues - Linux Addict
Avatar
Hugues
Ce cher Hugues a dit :

Ce cher Damien Wyart a dit :

Si j'ai bien compris la question, c'est C-c C-f C-f (en mode Message)
que tu cherches.



Presque, je voudrais pouvoir le faire depuis le mode Summary, à la place
du 'F' par exemple.



J'ai survolé tous les keybindings du mode Summary ('M-x describe-mode'
dans le buffer du newsgroup), et je n'ai pas trouvé le binding en
question :-/

--
Hugues - Linux Addict
Avatar
Xavier Maillard
On 13 oct 2004, wrote:

Ce cher Hugues a dit :

> Ce cher Damien Wyart a dit :
>
> > Si j'ai bien compris la question, c'est C-c C-f C-f (en
> > mode Message) que tu cherches.
>
> Presque, je voudrais pouvoir le faire depuis le mode Summary,
> à la place du 'F' par exemple.

J'ai survolé tous les keybindings du mode Summary ('M-x
describe-mode' dans le buffer du newsgroup), et je n'ai pas
trouvé le binding en question :-/



Ben ça me semble logique à moi. Le X-post et le FU2 se font en
mode édition donc dans le mode Message.

La manière la plus rapide est donc de te créer une macro que tu
bind sur la touche 'F' si ça te chante qui ferait simplement:

1. F sur l'article
2. C-u C-c C-f x (FU2)
3. C-c C-c (envoie)

A noter que le fu2 est possible de 2 façons sous Gnus, soit en
utilisant le C-c C-f C-f soit en utilisant ce que je viens de
donner.

La commande 'C-c C-f x' fait par défaut un X-Post plus FU2 mais
si on l'a préfixe, elle ne fait que le FU2.

Bien pratique.
--
Hacker Wonderland Xavier Maillard| "Stand Back! I'm a programmer!"
.0. |
..0 (+33) 326 770 221 | Webmaster, emacsfr.org
000 PGP : 0x1E028EA5 | Membre de l' APRIL
Avatar
drkm
Hugues writes:

Ce cher Hugues a dit :

Presque, je voudrais pouvoir le faire depuis le mode Summary, à la place
du 'F' par exemple.



J'ai survolé tous les keybindings du mode Summary ('M-x describe-mode'
dans le buffer du newsgroup), et je n'ai pas trouvé le binding en
question :-/



Ceci :

(drkm-key:def-if-prefix-arg-command your-followup-and-followup-to ()
"Compose a followup and add a fu2 field."
(progn (gnus-summary-followup-with-original nil)
(message-goto-followup-to))
(gnus-summary-followup-with-original nil))

(add-hook 'gnus-summary-mode-hook
(lambda ()
(local-set-key "F" 'your-followup-and-followup-to)))

ou l'équivalent anonyme :

(add-hook 'gnus-summary-mode-hook
`(lambda ()
(local-set-key "F"
,(drkm-key:def-if-prefix-arg-command lambda ()
"Compose a followup and add a fu2 field."
(progn (gnus-summary-followup-with-original nil)
(message-goto-followup-to))
(gnus-summary-followup-with-original nil)))))

pourraient t'intéresser. Dans Gnus Summary Mode, "F" fonctionne comme
d'habitude, sauf si tu lui donnes un argument préfixe (C-u), auquel
cas elle insère un fu2.

Avec `drkm-key:def-if-prefix-arg-command()' définie comme suit :

(defmacro drkm-key:def-if-prefix-arg-command
(name args docstring then-form &rest else-form)
"Génère une commande exécutant `THEN-FORM' si prefix arg., `ELSE-FORM' sinon.

Cette macro retourne une commande, acceptant éventuellement un
argument préfixe, au moyen de "C-u". Lors de l'appel, si
l'argument préfixe est présent, la commande générée évalue
`THEN-FORM', sinon elle évalue `ELSE-FORM'. La commande générée
est documentée au moyen de `DOCSTRING'.

Si `NAME' est nil ou égal à `lambda', la commande renvoyée est
une commande lambda. Sinon, `NAME' est interprété comme un
symbole, dont on fixe la définition de fonction à la commande
générée, avant de le renvoyer. `NAME' ne doit pas ête quoté.

TODO: Permettre d'ajouter une chaîne pour `interactive()'."
(let* ((prefix-arg-sym (gensym "drkm-key::"))
(lambda-fun `(lambda ,(if args
`(,prefix-arg-sym ,@args)
`(,prefix-arg-sym))
,docstring
(interactive "*P")
(if (not ,prefix-arg-sym)
,(if (> (length else-form) 1)
`(progn ,@else-form)
(car else-form))
,then-form))))
(if (or (null name) (eq name 'lambda))
lambda-fun
`(progn (fset ',name ,lambda-fun)
',name))))

(put 'drkm-key:def-if-prefix-arg-command 'lisp-indent-function 2)

--drkm
Avatar
drkm
drkm writes:

(let* ((prefix-arg-sym (gensym "drkm-key::"))
(lambda-fun `(lambda ,(if args
`(,prefix-arg-sym ,@args)
`(,prefix-arg-sym))
,docstring
(interactive "*P")



Oops. Une ancienne erreur s'est glissée dans mon article.
Remplacer la dernière ligne par :

(interactive "P")

(sans '*').

--drkm
Avatar
Hugues
Ce cher drkm a dit :


Ceci :
[...]



Joli, merci. je regarderai quand j'aurai plus de temps.


(cependant je reste persuadé que j'avais une telle fonction
d'emblée. Ca doit etre un truc qui etait en fait lié a la conf
exotique à mon école ;))

--
Hugues - Linux Addict