info-gnus-english
[Top][All Lists]
Advanced

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

smtp send mail problem from at home


From: Torben Knudsen
Subject: smtp send mail problem from at home
Date: 01 Mar 2007 08:30:21 +0100
User-agent: Gnus/5.0807 (Gnus v5.8.7) Emacs/20.7

With the gnus below my gnus works fine on a PC ubuntu system when I am
connected to the university network.  When I am at home it doesn't
work.  Some of the error is:

250 2.0.0 Verbose mode
MAIL FROM: <tk@es.aau.dk> SIZE=1322
250 2.1.0 <tk@es.aau.dk>... Sender ok
RCPT TO: <PBC@vestas.com>
550 5.7.1 <PBC@vestas.com>... Relaying denied. Proper authentication required.

My system administrator say that the below works for him in pine:

smtp-server=smtp.control.auc.dk:587/novalidate-cert/tls/user=hl

How can i do something similar in gnus?

;% Time-stamp: <2007-01-31 11:33:28 tk>

;; BBDB The following seems to give errors
; This is also in .emacs
; There are more stuff in my sun version
; (require 'bbdb)
; (bbdb-initialize 'gnus 'message 'sc 'w3)

;*** Misc

(gnus-define-keys gnus-summary-mode-map [delete]  gnus-summary-delete-article)

(setq make-backup-files nil)
(setq user-mail-address "tk@es.aau.dk")
;(setq user-full-name "Torben Knudsen") ; Allready set
(setq gnus-local-domain "es.aau.dk")
(setq gnus-local-organization "Aalborg University, Institute of Electronic 
Systems")
; Use smtpmail not sendmail for mail sending
; (require 'smtpmail) ; Not necessary 
(setq send-mail-with-sendmail nil)
(setq send-mail-function 'smtpmail-send-it)
(setq message-send-mail-function 'smtpmail-send-it)
(setq smtpmail-default-smtp-server "smtp.control.aau.dk")
;; If your SMTP server requires a username/password to authenticate, as
;; many do nowadays, set them like this:
(setq smtpmail-auth-credentials  ; or use ~/.authinfo
        '(("smtp.control.aau.dk" 587 "" "")))
;       '(("smtp.control.aau.dk" 587 "*******" "*******")))
;       '(("smtp.control.aau.dk" 25 "" "")))
; Perhaps the following can be of use
; smtpmail-auth-credentials '(("smtp.googlemail.com" 465 "*******" "*******"))
; smtpmail-starttls-credentials '(("smtp.googlemail.com" 465 nil nil))
; For debuging
;(setq smtpmail-debug-info t
;      smtpmail-debug-verb t)

(setq mail-source-delete-incoming t)

(add-hook 'gnus-group-mode-hook 'gnus-topic-mode)

(setq gnus-large-newsgroup 300)
(setq nnmail-large-newsgroup 300)
(add-hook 'gnus-after-getting-new-news-hook 'gnus-group-save-newsrc)
(setq gnus-suppress-duplicates t)
(setq nnmail-treat-duplicates 'delete)
(setq gnus-interactive-exit nil)
(setq gnus-thread-ignore-subject t)

(setq gnus-nntp-server "news.aau.dk")
;(setq gnus-article-save-directory "~/Mail/archive/")
;(setq gnus-cache-directory "~/Mail/cache/")
(setq gnus-message-archive-group "nnimap+AUC:INBOX.mbox-out")

;(setq nnmail-prepare-incoming-message-hook 'article-de-quoted-unreadable)

;*** Qoute
(setq message-cite-function 'sc-cite-original)
(setq sc-citation-leader "") ; No leading space in quote

;*** Default headers
(setq message-default-headers "Mime-Version: 1.0\nContent-Type: text/plain; 
charset=ISO-8859-1\nContent-Transfer-Encoding: 8bit\n")

;*** TK part
;(setq gnus-use-adaptive-scoring t)
;(setq gnus-default-article-saver 'gnus-summary-save-in-file)

;*** nnimap stuff
; for test
;(setq imap-log "imaplog")

(setq gnus-secondary-select-methods
        '((nnimap "AUC"
                  (nnimap-address "imap.control.aau.dk")
                  (nnimap-authenticator login))
))

; (add-hook 'mail-setup-hook 'dansk-double-mode) ; Not needed fo
;  Danish keybords

;*** Setup group buffer format
(add-hook 'gnus-select-group-hook 'gnus-group-set-timestamp)
(setq gnus-group-line-format "%M%S<%4R:%3y>: %(%-40,40g%) %2,2~(cut 
6)d-%2,2~(cut 4)d\n")
(setq gnus-summary-line-format "%U%R%z%I%(%[%d %4c: %-20,20n%]%) %s\n")
(define-key gnus-summary-mode-map [delete] 'gnus-summary-delete-article)

;;
;; *** automatic mail scan without manual effort.
;;
;; level-specified group scanner.
(defun gnus-demon-scan-mail-or-news-and-update (level)
"Scan for new mail, updating the *Group* buffer."
  (let ((win (current-window-configuration)))
    (unwind-protect
        (save-window-excursion
          (save-excursion
            (when (gnus-alive-p)
              (save-excursion
                (set-buffer gnus-group-buffer)
                (gnus-group-get-new-news level)))))
      (set-window-configuration win))))
;;
;; level 2: only mail groups are scanned.
(defun gnus-demon-scan-mail-and-update ()
"Scan for new mail, updating the *Group* buffer."
  (gnus-demon-scan-mail-or-news-and-update 2))
(gnus-demon-add-handler `gnus-demon-scan-mail-and-update 5 nil)
;;
;; level 3: mail and local news groups are scanned.
(defun gnus-demon-scan-news-and-update ()
"Scan for new mail, updating the *Group* buffer."
  (gnus-demon-scan-mail-or-news-and-update 3))
(gnus-demon-add-handler `gnus-demon-scan-news-and-update 20 20)

(setq nnimap-expunge-on-close 'always)
(defvar nnimap-split-crosspost nil)
(setq nnimap-split-inbox '("INBOX"))

(setq gnus-auto-expirable-newsgroups "nnimap[+]AUC:")
(setq gnus-inhibit-user-auto-expire nil)
(setq nnmail-expiry-wait 31)

;*** Mail splitting
(setq nnimap-split-rule
 '(
  ("INBOX.Spam-mail"    "^X-Spam-Flag:.*YES")
  ("INBOX.staff"        "^\\(To\\|Cc\\):.*staff")
  ("INBOX.P3C"          "^Subject:.*P3C.*")
  ("INBOX.tk"           "^\\(To\\|Cc\\|From\\):.*tk@.*")
  ("INBOX.conference"   
"^Subject:.*\\(call.*paper\\|conference\\|congress\\).*")
  ("INBOX.misc"         "")
       )
)

;; Example for mail splitting rule
;   ("INBOX.conference" 
"^Subject:.*\\(call.*paper\\|conference\\|congress\\).*")

-- 
Associate Prof. Ph.D Torben Knudsen     Phone   : (+45) 9635 8670
Section of Automation and Control,      Email   : tk@es.aau.dk
Department of Electronic Systems,
Aalborg University 
Fredrik Bajersvej 7 
DK-9220 Aalborg Ø
Denmark 


reply via email to

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