Re: ��Է��һ��Ϊ��gnus��ļ�ô��

Article View: cn.comp.os.linux

Article #10220

#10220

From: ��
Date: Thu, 14 Aug 2003 07:56

270 lines
15236 bytes

--=-=-=
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: 8bit

>>>>> "sd44" == sd44  <sd44sd44@yeah.net> writes:

    sd44> �����ע��������

�ҵ� .gnus.el �Ƚ������ˡ�Gnus 5.10 �����ã�û��������汾���Թ�


--=-=-=
Content-Type: application/emacs-lisp
Content-Disposition: attachment; filename=.gnus.el
Content-Transfer-Encoding: 8bit
Content-Description: My .gnus.el file.

;; $Id: .gnus.el,v 1.38.2.2 2003/08/14 07:45:29 spr Exp $  -*- Emacs-Lisp -*-
;; Chunyu's .gnus.el is created on 2003/02/24 on db.hit.edu.cn.
;; Chunyu <dddkk@sina.com>.

;; �ҵ� .gnus.el �ļ���רΪ Gnus 5.10 �ģ�û��������汾�Թ�

;;;;; Gnus ֧�ֶ��Ķ��Դ��һ��������ӣ�Դ������ news��������mail��
(setq gnus-select-method '(nntp "news.yaako.com")
      ;; ��Щ������ġ�
      gnus-secondary-select-methods
      '(;;(nnml "private")              ;; ����Ǳ����ʼ�
        (nntp "news.newsfan.net")       ;; �·�
        ;;(nntp "news.cnnb.net")        ;; ����
        ))

;;;;; ���ָ���ı������� ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; �ܶ����ã�������һЩҲ��ȱʡֵ�������ο����ڱ������ϰ� C-h v RET
;;;;; ����֪������ʲô�õ��ˡ�
(setq gnus-auto-select-subject 'first
      gnus-auto-select-first nil
      gnus-read-active-file nil
      gnus-read-newsrc-file nil
      gnus-save-newsrc-file nil
      gnus-save-killed-list nil
      gnus-asynchronous t

      ;; ���� gnus ����ʲô��ÿ50����ʾһ��
      gnus-summary-display-while-building 50
      gnus-summary-display-arrow nil
      gnus-always-read-dribble-file t
      gnus-confirm-mail-reply-to-news t

      gnus-gcc-mark-as-read t ;; Archive�����Զ����Ϊ�Ѷ�
      gnus-gcc-externalize-attachments 'all ;; �Լ��������� Archive

      ;; ֻ�������һ���֣�body?���Ŀ��У�
      gnus-treat-strip-trailing-blank-lines 'last
      gnus-treat-strip-leading-blank-lines 'last
      gnus-treat-strip-multiple-blank-lines 'last

      ;; �� X �µ�ʱ�򣬲�Ҫ�ѱ����ŷ���Ϊͼ��
      gnus-treat-display-smileys nil)

;;;;; group parameters ��û����ã��Ǻ�
(setq gnus-parameters
      ;; ���ҵ��ʼ�����ֱ����ò�ͬ�� group parameters
      '(("list\\..*" (subscribed . t))
        ("misc\\..*" (auto-expire . t))))

;;;;; ƽʱϲ���� console �£����ԣ���Ҫ����һ��ԭ�����Ǻ�Ư���� console face
(setq gnus-header-face-alist
      '(("From" nil gnus-header-from-face)
        ("Subject" nil gnus-header-subject-face)
        ("Newsgroups" nil gnus-header-newsgroups-face)
        ;; ϲ���������˶���ʲô news client������ͻ��һ�±ȽϺã�
        ("User-Agent\\|X-Mailer\\|X-Newsreader" gnus-header-subject-face gnus-header-from-face)
        ("" gnus-header-name-face gnus-header-content-face)))

;;;;; ��֮���������ĺ�Ӣ�ĵ��飬ȱʡΪ����������
(setq gnus-default-charset 'cn-gb-2312
      ;; �·�������������Ҫ����������������Զ��� gb2312 ��
      gnus-group-name-charset-group-alist '((".*" . gb2312))
      ;; ��ʱ������ big5 �İ�һ�� 2 g ���ܺ����׵ĸ㶨
      gnus-summary-show-article-charset-alist '((1 . cn-gb-2312) (2 . big5))
      ;; ʹ�� iso-8859-1 ����һЩ������� gb2312
      gnus-newsgroup-ignored-charsets '(unknown-8bit x-unknown iso-8859-1)
      ;; ����Щʱ�����ʼ���gb2312 �Ĳ��ñ���Ҳ�ܱ������˿���������Ҳ���� gb2312 ��
      gnus-group-posting-charset-alist
      '(("^\\(cn\\)\\.[^,]*\\(,[        \n]*\\(cn\\)\\.[^,]*\\)*$" gb2312 (gb2312))
        ("^\\(�����\\|��������\\).*" gb2312 (gb2312))
        (message-this-is-mail nil nil)
        (message-this-is-news nil t)))

;; Emacs ��֧�� gb18030����� gb2312 �ܿ������Ϳ������������Ϳ������ˣ�
;; ������Ϊ gb18030 Ҳ�� gb2312 �ա�
;; (define-coding-system-alias 'gb18030 'gb2312)

;; ��Щ�����ҵĵ�ַ����΢���˸ģ������ֱ�� copy �ģ������˸İ���������
;; ������ mail group ����Ͳ��ÿ��Լ������ֺ͵�ַ�����Ƿ��͵ĵ�ַ�ˡ�
(setq gnus-ignored-from-addresses
      (regexp-opt '("dddkk@sina.com"
                    "sss@aa.lala.cn"
                    "sss@bb.lalalala.cn"
                    "chunyu@hhh.hhh")))

;; Archive ���飬��news��mail�ֿ����ٰ��·֡�
(setq gnus-message-archive-group
      '((if (message-news-p)
            (concat "news." (format-time-string "%Y-%m"))
          (concat "mail." (format-time-string "%Y-%m")))))

(setq chunyu-gnus-x-face
      ;; �ҵ� X-Face���ñ�Ĺ��߰�ͼƬתΪ�ַ��ʱ����Ҫ����������
      ;; �� \ �� " �ֱ�ת��Ϊ \\ �� \" �����ַ���ת��
      (concat "$,MrC{\".#Of\"+5o4f&\"Y%BEXbu::2[3u0PK.G\\]'&Irj>a"
              "%BRPq%aA\"6f<Ywarj_/AR5<o9'<!\"9.\\ZqzkDv-OK0&Vx&D"
              "(0'5O(jx,]LgQk/J@P<F$X\\br>y\"[Eo8lEBloB*tfsz~]\\L"
              "l\\}&C{}ar^R\\Ic9shnEW?'8o-9%MQ03+izFFbQV&CUKVd>%V"
              "1sog)m1$L=Z(K!I5ID8nucdF}Bb(/r>b]7*t@GP%=VS_~:&~:F"
              "$?7,i1Wqj\\C(q)|@71421c2ynlCQ<u%\"'6|28Oww\":7N6=F"
              "s/?mUj&_^u&\\^yrrY{O"))

;; ��ݲ�ͬ�ģ��ҵ����ֺ͵�ַ�ǲ�һ��ġ��������Լ��ģ�Gnus �����Զ���
;; �Ĺ����ˡ�
(setq gnus-posting-styles
      '((".*" ;; ȱʡ�����
         ;; ǩ���ļ������ҵ� ~/.sig Ŀ¼�����ɼ���ǩ���ļ�
         (signature-file "~/.sig/default")
         ;; ���ŵ�����
         (name "Wang Chunyu")
         ;; ��ʾ��ַ
         (address "dddkk@sina.com"))
        ("^cn\\..*\\|^nntp\\+news.*" ;; �������������
         (signature-file "~/.sig/cnnews")
         (name "�����")
         (address "dddkk@sina.com")
         ;; �����õ��ҵ� X-Face ��
         ("X-Face" 'chunyu-gnus-x-face))
        ("^nnml\\+private:list\\..*" ;; ���ĵ�һЩ����� mailing list �����
         (signature-file "~/.sig/pubmail")
         (name "Chunyu Wang")
         (address "sss@aa.lala.cn"))
        ("^nnml\\+private:\\(classmate\\|friends\\).*" ;; �����ʼ������
         (signature-file "~/.sig/mail")
         (name "�ҵ�����")
         (address "chunyu@hhh.hhh"))))

;;;;; ϲ���� Supercite�������ж��ֶ����������ʽ ;;;;;;;;;;;;;;;;;;;;;
(setq sc-attrib-selection-list nil
      sc-auto-fill-region-p nil
      sc-blank-lines-after-headers 1
      sc-citation-delimiter-regexp "[>]+\\|\\(: \\)+"
      sc-cite-blank-lines-p nil
      sc-confirm-always-p nil
      sc-electric-references-p nil
      sc-fixup-whitespace-p t
      sc-nested-citation-p nil
      sc-preferred-header-style 4
      sc-use-only-preference-p nil)

(setq mail-self-blind t
      message-from-style 'angles
      message-kill-buffer-on-exit t
      message-cite-function 'sc-cite-original
      message-elide-ellipsis "    [...]\n"
      message-sendmail-envelope-from nil

      ;;��ʱ�������Ҫ�����������������û������ Gnus ��ʱ����ʼ�
      message-signature t
      message-signature-file "~/.sig/default"

      message-forward-as-mime nil ;; ת����ϲ���ø����ʼ�������ֱ�ӵ����ݱȽϺ�

      ;; Ҳ��ϲ������������̫����ʼ�ͷ��Ϣ�������һ��
      ;; message-forward-with-headers ����������Ͳ�����ô�鷳�� :(
      message-forward-ignored-headers 
      (concat 
       "^X-\\|^Old-\\|^Xref:\\|^Path:\\|^[Cc]c:\\|^Lines:\\|^Sender:"
       "\\|^Thread-\\|^[GB]cc:\\|^Reply-To:\\|^Received:\\|^User-Agent:"
       "\\|^Message-ID:\\|^Precedence:\\|^References:\\|^Return-Path:"
       "\\|^Cancel-Lock:\\|^Delivered-To:\\|^Organization:\\|^content-class:"
       "\\|^Mail-Copies-To:\\|^Return-Receipt-To:\\|^NNTP-Posting-Date:"
       "\\|^NNTP-Posting-Host:\\|^Content-Transfer-Encoding:"
       "\\|^Disposition-Notification-To:\\|^In-Reply-To:\\|^List-"
       "\\|^Status:\\|^Errors-To:\\|FL-Build:"))

;;;;; ѹ��������ʼ�
(setq nnml-use-compressed-files t)

;;;;; �ʼ����� ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;; ������ظ���ɾ��
(setq nnmail-treat-duplicates 'delete
      nnmail-crosspost nil              ; ͬһ���ʼ���Ҫ�������
      nnmail-split-methods 'nnmail-split-fancy ; ������෽���Ƚ����
      nnmail-split-fancy-match-partial-words t ; ���ʲ���ƥ��Ҳ��ɹ�ƥ��
      nnmail-split-fancy
      '(| ;; ��� mailing list ����
        (any "emacs-devel@gnu.org" "list.emacs-devel")
        (any "guile-user@gnu.org" "list.guile-user")
        (any "guile-sources@gnu.org" "list.guile-sources")
        (any "ding@gnus.org" "list.ding")
        (any "fetchmail-friends" "list.fetchmail")
        (any "zope@zope.org" "list.zope")
        (to "chunyu@hhh.hhh\\|dddkk@sina.com\\|sss@aa" ;; ֱ�Ӹ��ҵ��ٷ���
            (| (from "bbs@bbs" "mail.bbs") ;; �� bbs ���Լ�ת�����ʼ�
               ;; ... ����ʡȥ��һЩ (from ...)
               (from "m_pupil@yahoo.com.cn" "mail.friends") ;; It's me FKtPp ;)
               "mail.misc")) ;; ƥ�䲻��
        "misc.misc"))        ;; ��������� junk ��

;; topic mode �ο����(info "(gnus)Group Topics") ;;;;;;;;;;;;;;;;;;
(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
(add-hook 'mail-citation-hook 'sc-cite-original)
(add-hook 'message-mode-hook (lambda () (setq fill-column 72) (turn-on-auto-fill)))

;; html ���ʼ�������
(eval-after-load "mm-decode"
  '(progn
     (setq mm-discouraged-alternatives '("text/html")
           mm-automatic-display (remove "text/html" mm-automatic-display))))

;;; ������������Զ�������£��ο����(info "(gnus)Daemons")
;; (gnus-demon-init)
;; (gnus-demon-add-rescan)
;; (gnus-demon-add-disconnection)
;; (gnus-demon-add-scanmail)


;;;;; ��ɫ���� ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(unless window-system
;;;; ͻ����ʾ�Լ����͵����Ӻͱ��˻�Ӧ�ҵ����ӡ��ο��������õģ�
  ;;   http://my.gnus.org/Members/dzimmerm/HowTo%2C2002-07-25%2C1027619165012198456/view
  (require 'gnus-sum)
  (defface chunyu-gnus-own-related-posting-face nil "Postings by myself.")
  (set-face-attribute 'chunyu-gnus-own-related-posting-face nil :foreground "red" :weight 'bold)
  (add-to-list 'gnus-summary-highlight
               '((and (> score 6500) (eq mark gnus-unread-mark)) . chunyu-gnus-own-related-posting-face))

  (eval-after-load "gnus-cite"
    '(progn
       (set-face-attribute 'gnus-cite-face-2 nil :foreground "magenta")
       (set-face-attribute 'gnus-cite-face-3 nil :foreground "yellow")
       (set-face-attribute 'gnus-cite-face-4 nil :foreground "cyan")))
  (eval-after-load "gnus-art"
    '(progn
       (set-face-attribute 'gnus-header-subject-face nil :foreground "red" :weight 'bold)))

  ;; һЩ��ɫ�ϵ����ã��һ�ֻ�� console �£�������ɫֻ�м��֡�
  (set-face-attribute 'gnus-group-mail-1-empty-face nil :foreground "magenta")
  (set-face-attribute 'gnus-group-mail-1-face nil :foreground "magenta" :weight 'bold)
  (set-face-attribute 'gnus-group-mail-2-empty-face nil :foreground "cyan")
  (set-face-attribute 'gnus-group-mail-2-face nil :foreground "cyan" :weight 'bold)
  (set-face-attribute 'gnus-group-mail-3-empty-face nil :foreground "green")
  (set-face-attribute 'gnus-group-mail-3-face nil :foreground "green" :weight 'bold)
  (set-face-attribute 'gnus-group-news-1-empty-face nil :foreground "magenta")
  (set-face-attribute 'gnus-group-news-1-face nil :foreground "magenta" :weight 'bold)
  (set-face-attribute 'gnus-group-news-2-empty-face nil :foreground "cyan")
  (set-face-attribute 'gnus-group-news-2-face nil :foreground "cyan" :weight 'bold)
  (set-face-attribute 'gnus-group-news-3-empty-face nil :foreground "green")
  (set-face-attribute 'gnus-group-news-3-face nil :foreground "green" :weight 'bold))

;; Chunyu's .gnus.el ends here.

--=-=-=
Content-Type: text/plain; charset=gb2312
Content-Transfer-Encoding: 8bit


-- 
 ~~һ�쵽��~�����~~
   <dddkk@sina.com>

--=-=-=--

Technical Details

Message-ID: <m2oeysise7.fsf@db.cs.hit.edu.cn>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!news-out.visi.com!petbe.visi.com!nycmny1-snh1.gtei.net!news.gtei.net!bloom-beacon.mit.edu!news.cn99.com!news.yaako.com!not-for-mail

References: <20030814140036.189a67f9.sd44sd44@yeah.net>

Show Full Headers

Complete Article Headers

X-Google-Language: Chinese,GB
X-Google-Thread: 10b277,e79b7a63d0d59147
X-Google-Attributes: gid10b277,public
X-Google-ArrivalTime: 2003-08-14 01:16:46 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-03!sn-xit-06!sn-xit-08!supernews.com!news-out.visi.com!petbe.visi.com!nycmny1-snh1.gtei.net!news.gtei.net!bloom-beacon.mit.edu!news.cn99.com!news.yaako.com!not-for-mail
From: "�����" <dddkk@sina.com>
Newsgroups: cn.comp.os.linux
Subject: Re: ���Է���һ����Ϊ�����gnus�����ļ�ô��
Date: Thu, 14 Aug 2003 15:56:48 +0800
Organization: Bentium Ltd. (CN99)
Lines: 270
Message-ID: <m2oeysise7.fsf@db.cs.hit.edu.cn>
References: <20030814140036.189a67f9.sd44sd44@yeah.net>
NNTP-Posting-Host: 61.167.60.204
Mime-Version: 1.0
Content-Type: multipart/mixed; boundary="=-=-="
X-Trace: news.yaako.com 1060847593 751 61.167.60.204 (14 Aug 2003 07:53:13 GMT)
X-Complaints-To: usenet@news.yaako.com
NNTP-Posting-Date: Thu, 14 Aug 2003 07:53:13 +0000 (UTC)
X-Face: $,MrC{".#Of"+5o4f&"Y%BEXbu::2[3u0PK.G\]'&Irj>a%BRPq%aA"6f<Ywarj_/AR5<o9'<!"9.\ZqzkDv-OK0&Vx&D(0'5O(jx,]LgQk/J@P<F$X\br>y"[Eo8lEBloB*tfsz~]\Ll\}&C{}ar^R\Ic9shnEW?'8o-9%MQ03+izFFbQV&CUKVd>%V1sog)m1$L=Z(K!I5ID8nucdF}Bb(/r>b]7*t@GP%=VS_~:&~:F$?7,i1Wqj\C(q)|@71421c2ynlCQ<u%"'6|28Oww":7N6=Fs/?mUj&_^u&\^yrrY{O
User-Agent: Gnus/5.1003 (Gnus v5.10.3) Emacs/21.3.50 (gnu/linux)
Cancel-Lock: sha1:+0Yv9lB1GA/IEJJ77XCLe7NzwXw=

Reply to Parent Message

Article View: cn.comp.os.linux

Re: ���Է���һ����Ϊ�����gnus�����ļ�ô��

Re: ��Է��һ��Ϊ��gnus��ļ�ô��