[Top][All Lists]

[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 (
   (eval-after-load "mail-source" '(require 'pop3))

   (setq gnus-posting-styles
         (name "aaaa")
         (address "address@hidden"))
         (address "address@hidden"))))

   (setq mail-sources                                   
      '((file :path "/var/spool/mail/aaaa")
        (pop :server ""
             :port 995
             :user "aaaa"
             :connection ssl
             :leave t)
        (pop :server ""
;             :port 995
             :user "aaaa"
             :connection ssl
             :leave t)))

  (defun fs-change-smtp ()
  "Change the SMTP server according to the current from line."
    (let ((from
             (message-fetch-field "from"))))
      (message "From is `%s', setting `smtpmail-smtp-server' to `%s'"
                ((string-match "address@hidden" from)
                 ;; Use stmp-auth
                 (message "Using smtp-auth")
                 ;; Sending mail
                 (setq message-send-mail-function 'smtpmail-send-it)
                 (setq smtpmail-starttls-credentials '(("" 587 
nil nil)))
                 (setq smtpmail-auth-credentials '(("" 587 "aaaa" 
                 (setq smtpmail-default-smtp-server "")
                 (setq smtpmail-smtp-server "")
                 (setq smtpmail-smtp-service 587))
                ((string-match "address@hidden" from)
                 ;; Use local sendmail
                 (message "Using local sendmail")
                 (setq message-send-mail-function 
                  (concat "Don't know which mail server to use for "

    (add-hook 'message-setup-hook 'fs-change-smtp)

(setq gnus-select-method '(nntp ""))
;(add-to-list 'gnus-secondary-select-methods '(nntp ""))

;;; 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)
(add-hook 'message-mode-hook 'my-message-mode-setup)

(setq gnus-thread-sort-functions

reply via email to

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