[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
how to read mail(Gnus)?
From: |
sroh |
Subject: |
how to read mail(Gnus)? |
Date: |
Sat, 12 May 2007 00:14:20 +0900 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/22.0.99 (berkeley-unix) |
i did copy & paste gnus setting.
i don't know next step.
-----------------------------------------------------------------------------
my .emacs
;; The following line is needed when using pop3.el from T-gnus (m17n.org).
(eval-after-load "mail-source" '(require 'pop3))
(setq gnus-posting-styles
'((".*"
(name "aaaa")
(address "aaaa@gmail.com"))
("^nnml.*gmail"
(address "aaaa@gmail.com"))))
(setq mail-sources
'((file :path "/var/spool/mail/aaaa")
(pop :server "pop.gmail.com"
:port 995
:user "aaaa"
:connection ssl
:leave t)
(pop :server "pop.naver.com"
; :port 995
:user "aaaa"
:connection ssl
:leave t)))
(defun fs-change-smtp ()
"Change the SMTP server according to the current from line."
(save-excursion
(let ((from
(save-restriction
(message-narrow-to-headers)
(message-fetch-field "from"))))
(message "From is `%s', setting `smtpmail-smtp-server' to `%s'"
from
(cond
((string-match "aaaa@gmail.com" from)
;; Use stmp-auth
(message "Using smtp-auth")
;; Sending mail
(setq message-send-mail-function 'smtpmail-send-it)
(setq smtpmail-starttls-credentials '(("smtp.gmail.com" 587
nil nil)))
(setq smtpmail-auth-credentials '(("smtp.gmail.com" 587 "aaaa"
nil)))
(setq smtpmail-default-smtp-server "smtp.gmail.com")
(setq smtpmail-smtp-server "smtp.gmail.com")
(setq smtpmail-smtp-service 587))
((string-match "aaaa@gmail.com" from)
;; Use local sendmail
(message "Using local sendmail")
(setq message-send-mail-function
`message-send-mail-with-sendmail))
(t
(error
(concat "Don't know which mail server to use for "
from))))))))
(add-hook 'message-setup-hook 'fs-change-smtp)
(setq gnus-select-method '(nntp "news.xpeed.com"))
;(add-to-list 'gnus-secondary-select-methods '(nntp "news.gnus.org"))
;;; Main config
(setq gnus-home-score-file "/home/aaaa/Mail/gnus.SCORE"
gnus-agent-directory "/home/aaaa/Mail/agent/"
gnus-directory "/home/aaaa/Mail/News/"
gnus-article-save-directory "/home/aaaa/Mail/News"
gnus-cache-directory "/home/aaaa/Mail/News/cache"
gnus-cache-active-file "/home/aaaa/Mail/News/cache/active"
gnus-kill-files-direcotry "/home/aaaa/Mail/News"
nndraft-directory "/home/aaaa/Mail/drafts/")
(defun my-message-mode-setup ()
(setq fill-column 72)
(turn-on-auto-fill))
(add-hook 'message-mode-hook 'my-message-mode-setup)
(setq gnus-thread-sort-functions
'(gnus-thread-sort-by-date))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- how to read mail(Gnus)?,
sroh <=