Gnus
La fonction suivante permet de répondre à un message. Si - pour le group courant - le paramètre To-List est défini, alors la fonction supprime les To/Cc pour définir le To à l'adresse contenu dans ce champ. (Fonction utile pour les listes de diffusion qui ne définisse pas l'en tête Reply-To.
(defun replace-recipients () (message-remove-header "To") (message-add-header (concat "To: " (gnus-parameter-to-list gnus-newsgroup-name))) (message-remove-header "cc") ) (defun my-mail-reply () "Followup (with original) reply, reformat original, replace To: (and remove Cc:) if To-List group paramer is defined, useful for mailing list without Reply-To header." (interactive) (gnus-summary-followup-with-original 1) (save-excursion (if (gnus-parameter-to-list gnus-newsgroup-name) (replace-recipients)) (goto-char (point-min)) ;; On reformate le paragraphe (let* ;; selection ( ;; debut du mail (result (search-forward-regexp "^--text follows this line--$" nil t)) (first-match (and result (+ 1 (match-end 0)))) ;; signature (result (search-forward-regexp "^-- $" nil t)) (second-match (and result (match-beginning 0) )) ) ;; formatage (fill-individual-paragraphs first-match second-match) ) ) ) ;; use my-mail-reply (defun reply-function-fixup-gnus () (define-key gnus-summary-mode-map "g" 'my-mail-reply) (define-key gnus-summary-mode-map "h" 'gnus-summary-show-all-headers) ) (add-hook 'gnus-summary-mode-hook 'reply-function-fixup-gnus)
outils/emacs/gnus/reply.txt · Dernière modification: 2006/10/26 11:58 (modification externe)