Re: gnus в стиле golded

From

Andrey Slusar (2:467/126)

To

Oleg Sheremetinsky (2:5054/37.63)

Date

2005-04-06T22:33:34Z

Area

RU.UNIX.FTN

Wed, 06 Apr 2005 21:20:00 +0300, Oleg Sheremetinsky wrote to All:

 OS> Помнится, где-то  встречал в  чьих-то .gnus функции,  чтобы тирлайн  в гнусе
 OS> показывался ниже подписи, в голдедовском стиле. Напомните, пожалуйста.

(c) DSA
--8<---------------cut here---------------start------------->8---
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Из ньюсовых в фидошные хиддеры
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;{{{
(defun dsa-article-prepare ()
  (when (string-match "^fido\\|^cc\.santinel\\|INBOX\.fido\\|^cca" gnus-newsgroup-name)  
    (when (re-search-forward "^From: \\(.+\\)<.*@\\(.*\\)\\.fidonet.org>$" nil t)      
      (let* ((from (match-string 1))	     
	     (fido-adr-list	      
	      (nreverse (split-string (match-string 2) "[.]")))	     
	     (fido-adr  (concat	"From: "	from	       
				(substring (car fido-adr-list) 1) ":"
				(substring (cadr fido-adr-list) 1) "/"
				(substring (caddr fido-adr-list) 1)
				(if (cadddr fido-adr-list)
				    (concat "." (substring (cadddr fido-adr-list) 1))))))
	(beginning-of-line)
	(kill-line)
	(insert fido-adr)))
    ;;shrink "Subject:" to four-letter length word "Subj:"    
    (beginning-of-buffer)    
    (when (re-search-forward "^Subject: " nil t)      
      (replace-match "Subj: "))    
    ;;Replace "X-Comment-To" by kind of "To:"    
    (beginning-of-buffer)    
    (when (re-search-forward "^X-Comment-To: " nil t)      
      (replace-match "To:   "))  
    ;;Replace "X-Sent:" by "Sent:"    
    (beginning-of-buffer)    
    (when (re-search-forward "^X-Sent: " nil t)      
      (replace-match "Sent: "))    
    ;;Remember "X-FTN-Tearline" for insert it below body of message    
    (beginning-of-buffer)    
    (when (re-search-forward "^X-FTN-Tearline: \\(.*\\)" nil t)      
      (beginning-of-line)      
      (save-excursion
	(end-of-buffer)
	(insert "--- " (match-string 1) "\n"))      
      (kill-line 1))    
    ;; Make "Origin" from "Organization"    
    (beginning-of-buffer)    
    (when (re-search-forward "^X-FTN-Origin: \\(.*\\)" nil t)      
      (beginning-of-line)      
(save-excursion
  (end-of-buffer)	
  (insert "* Origin: " (match-string 1) "\n"))      
(kill-line 1))
(beginning-of-buffer)))

(add-hook 'gnus-article-prepare-hook 'dsa-article-prepare)
;;}}}
--8<---------------cut here---------------end--------------->8---

-- 
                                                  Всего хорошего.
                                                            Андрей.
...Дружба дружбой, но куда либидо девать...
--- Gnus/5.1006 (Gnus v5.10.6) XEmacs/21.5 (cilantro, i386--freebsd)
 * Origin: http://sourceforge.net/projects/rusfidogate (2:467/126)
SEEN-BY: 46/50 400/814 450/1024 463/614 467/31 61 70 99 112 117 126 127 129
SEEN-BY: 467/220 4615/59 4621/18 5000/5000 5010/53 5011/13 5015/10 5019/31
SEEN-BY: 5020/545 715 4441 5021/29 5025/3 5027/16 5030/115 5035/38 5036/34
SEEN-BY: 5054/1 8 9 18 37 63 67 81 5062/10 5063/3 5069/7 5080/1003 5085/13
SEEN-BY: 5092/1 5095/20 5096/18 6000/12 254 6001/10

PATH: 467/126 70 46/50 5020/545 5054/1 37