Gnus

News

(setq user-mail-address "name@somewhere.com")
(setq user-full-name "NAME")

;(setq gnus-select-method '(nntp "news.somewhere.edu"))

pop3

;(setq gnus-secondary-select-methods '((nnml "")))
;; 如果 Gnus 只用來收信
(setq gnus-select-method '(nnml ""))

(setq mail-sources
      '((pop :server "pop.host.at" :user "XXX@host.at")
        (imap :server "imap.host" :user "XXX")
))

mail.misc

如果 mail.misc 沒有出現在列表裡

按下 j 鍵(功能是跳到某組)

輸入 mail.misc 就可以看到此組

再按 u 鍵訂閱即可

保存自己發送的郵件

在 group buffer 裡鍵入 G m ，輸入組名 mail.sent.mail

接著是輸入 nnml ，這個組就建好了，然後用同樣的方式建立"mail.sent.news"組。加入：

(setq gnus-message-archive-group
      '((if (message-news-p)
            "nnml:mail.sent.news"
          "nnml:mail.sent.mail")))

其他設定

;Store gnus specific files to ~/gnus
(setq gnus-directory "~/gnus")
(setq message-directory "~/gnus/mail")
(setq nnml-directory "~/gnus/nnml-mail")
(setq gnus-article-save-directory "~/gnus/saved")
(setq gnus-kill-files-directory "~/gnus/scores")
(setq gnus-cache-directory "~/gnus/cache")

;讀取舊郵件
(setq gnus-fetch-old-headers t)

;Display html emails via emacs-w3m
(setq mm-text-html-renderer 'w3m)

;Do not use the html part of a message, use the text part if possible!
(setq mm-discouraged-alternatives '("text/html" "text/richtext"))

;Summary line format strings
(setq gnus-summary-line-format "%O%U%R%z%d %B%(%[%4L: %-22,22f%]%) %s\n")
(setq gnus-summary-mode-line-format "Gnus: %p [%A / Sc:%4z] %Z")


(defadvice message-send (around my-confirm-message-send)
  (if (yes-or-no-p "Really send message? ")
      ad-do-it))
(ad-activate 'message-send)