[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Gnus Cannot Connect Gmail

From: narke
Subject: Gnus Cannot Connect Gmail
Date: 25 Jun 2005 01:45:54 -0700
User-agent: G2/0.2

followed the guides of,
i was going to setup Gnus work with Gmail.  i've got and updated the
three lisp scripts as described, lisp/mail/smtpmail.el,
lisp/starttls.el, pop.el respectively. but after i start Gnus and
provide my gmail password after the question, i only got an error and
failed in the connection,

  Mail source error ((file-error Cannot open load file ssl)).

does anyone know what is the problem?  below is my .gnus configuration.

thanks in advance.


;; The following line is needed when using pop3.el from T-gnus
(eval-after-load "mail-source" '(require 'pop3))

;; newsgroups name encoding
(setq gnus-group-name-charset-group-alist
      '((".*" . cn-gb-2312)))

;; fetch primary nntp server
(setq gnus-select-method '(nntp ""))

;; for additional nntp servers need to fetch from
;; (add-to-list 'gnus-secondary-select-methods '(nntp ""))

;; fetch local spool directory
;; (add-to-list 'gnus-secondary-select-methods '(nnspool ""))
;; (add-to-list 'gnus-secondary-select-methods
;;             '(nnspool "" (nnspool-directory

;; the back end used for incoming mail messages.
;; (setq gnus-secondary-select-methods
;;      '((nnml "private"))
(add-to-list 'gnus-secondary-select-methods '(nnml ""))

(setq gnus-posting-styles
         (name "Steven Woody")
         (address "narke@narke.yellow.line"))
         (address ""))))

(setq mail-sources
      '((file :path "/var/spool/mail/narke")
        (pop :server ""
             :port 995
             :user "narkewoody"
             :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 "" from)
                 ;; Use stmp-auth
                 (message "Using smtp-auth")
                 ;; Sending mail
                 (setq message-send-mail-function 'smtpmail-send-it)
                 (setq smtpmail-starttls-credentials '(("" 587 nil
                 (setq smtpmail-auth-credentials '(("" 587 
                 (setq smtpmail-default-smtp-server "")
                 (setq smtpmail-smtp-server "")
                 (setq smtpmail-smtp-service 587))
                ((string-match "narke@narke.yellow.ling" 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)

reply via email to

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