[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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- smtp send mail problem from at home,
Torben Knudsen <=