ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Andrew Kozin                         2:5020/960.14  13 Nov 2001  20:43:32
 To : All
 Subject : Golded'ообразные tearline и origin для GNUS
 -------------------------------------------------------------------------------- 
 

 .RFC-X-Complaints-To: news@isc.degunino.net
 .RFC-NNTP-Posting-Date: 13 Nov 2001 16:43:33 GMT
 .RFC-User-Agent: Gnus/5.0808 (Gnus v5.8.8) XEmacs/21.1 (GTK)
 Во как меня приплющило :))
 
 Добавить в .emacs
 (add-hook 'gnus-article-prepare-hook
  '(lambda () 
     (let ((buffer-read-only nil) origin-field tearline-field)
       (save-excursion 
         (goto-char (point-min))
         (if (string-match "^X-FTN-Origin: " (buffer-string))
           (progn
             (setq field-start (+ (match-end 0) 1))
             (goto-char field-start)
             (end-of-line)
             (setq origin-field (buffer-substring field-start (point)))
             (gnus-delete-line))))
       (save-excursion 
         (goto-char (point-min))
         (if (string-match "^X-FTN-Tearline: " (buffer-string))
           (progn
             (setq field-start (+ (match-end 0) 1))
             (goto-char field-start)
             (end-of-line)
             (setq tearline-field (buffer-substring field-start (point)))
             (gnus-delete-line))))
       (if tearline-field 
         (save-excursion 
           (goto-char (point-max))
           (insert (concat "--- " tearline-field "\n"))))
       (if origin-field 
         (save-excursion 
           (goto-char (point-max))
           (insert (concat " * Origin: " origin-field "\n")))))))
 естественно в (custom-set-variables ..... )
 
 должно быть 
 
  '(gnus-visible-headers (quote ("^From:" "^X-Comment-To:" "^X-FTN-Tearline"
 "^Subject:" "^Date:" "^X-FTN-Origin:")))
 Для полного счастья
 
 -- 
 
 With best wishes                         Stanson
 ... А ты убил в себе государство?
 --- ifmail v.2.14.os-p7
  * Origin: Illegal Systems Corp. (2:5020/960.14@fidonet)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор