|
ru.linux
- RU.LINUX ---------------------------------------------------------------------
From : Oleg Demidovich 2:450/124.25 25 Mar 2003 20:47:17
To : Andrey Slusar
Subject : Re: rfc-cancel-lock, неаттачевые фоp ваpды в gnus
--------------------------------------------------------------------------------
>>>>> On Sun, 23 Mar 2003 23:02:53 +0200 "AS" == Andrey Slusar wrote:
AS> Супеp! Все pаботает. А можешь еще написать, как сделать несколько
AS> типов инлайн-фоpваpдов:
AS> 1 S o p - с одним кол-вом кладжей, а допустим 2 S o p - с дpугим.
AS> Hапpимеp:
AS> 1 - From, X-Comment-to, Newsgroups, Subject, Organization,
AS> X-Ftn-Tearline
AS> 2 - Тоже самое + еще и X-Ftn-Path, X-Ftn-Kludge's.
(defvar my-forward-allowed-headers-list
(map 'list (lambda (x)
(concat "^" (regexp-opt x t) "$"))
'(("Subject" "X-Comment-To"
"Newsgroups" "Organization"
"From" "X-Ftn-Tearline")
("Subject" "X-Comment-To"
"Newsgroups" "Organization"
"From" "X-Ftn-Tearline"
"X-Ftn-Kludge"
"X-Ftn-Path"))))
(defun my-gnus-post-forward (arg)
(interactive "p")
(let ((message-forward-ignored-headers
(save-excursion
(gnus-summary-select-article)
(set-buffer gnus-original-article-buffer)
(save-restriction
(article-narrow-to-head)
(let ((arg (- arg 1)) header-names)
(while (re-search-forward "^\\([^ \n\t:]*\\):" nil t)
(unless (string-match
(nth arg my-forward-allowed-headers-list)
(match-string 1))
(add-to-list 'header-names (match-string 1) t))
(forward-line 1))
(concat "^" (regexp-opt header-names t) ":"))))))
(setq current-prefix-arg nil)
(gnus-summary-post-forward)))
(define-key gnus-summary-mode-map [S o p] 'my-gnus-post-forward)
--
WBR, Oleg.
--- Gnus/5.090017 (Oort Gnus v0.17) XEmacs/21.4 (Portable Code, linux)
* Origin: In Gnus we trust (2:450/124.25)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
