help-gnu-emacs
[Top][All Lists]
Advanced

[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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]