Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Commit folders, wl before tearing down Wanderlust.

  • Loading branch information...
commit 6281cdb851433971a9fb515e8b5dbf88378add2f 1 parent 77a7e02
@league authored
Showing with 23 additions and 8 deletions.
  1. +2 −1  folders
  2. +21 −7 wl
View
3  folders
@@ -10,6 +10,8 @@ Incoming {
%INBOX
%bulk
%sent
+#%INBOX:league/clear@contrapunctus.dyndns.org:993!
+#%INBOX:league/clear@contrapunctus.dyndns.org
}
Saved {
@@ -30,7 +32,6 @@ Lists {
%lists.algos
%lists.coq
%lists.notmuch
- %lists.orgmode
%lists.scala
%lists.types
}
View
28 wl
@@ -3,6 +3,8 @@
;; Composing & sending
(setq cl-net-address "league@contrapunctus.net"
cl-edu-address "christopher.league@liu.edu"
+ cl-lcs-address "league@liucs.net"
+ cl-tmp-address "league@contrapunctus.dyndns.org"
cl-full-name "Christopher League")
(defun cl-from (address)
@@ -24,6 +26,16 @@
(nconc (cdr cl-smtp-liu-settings) (list (car cl-smtp-liu-settings))))
(message "Will use %s:%d" (caar cl-smtp-liu-settings) (cdar cl-smtp-liu-settings)))
+(defun cl-vps-smtp-settings (address)
+ (let ((server (substring address (1+ (string-match "@" address)))))
+ (cons (cl-from-regex address)
+ (list (cons 'wl-from (cl-from address))
+ (cons 'wl-smtp-posting-server server)
+ (cons 'wl-smtp-posting-port 465)
+ (cons 'wl-smtp-connection-type ''ssl)
+ (cons 'wl-smtp-authenticate-type "login")
+ (cons 'wl-smtp-posting-user "league")))))
+
(defun cl-enable-multi-exec ()
(setq wl-draft-config-exec-flag t))
(add-hook 'wl-draft-config-exec-hook 'cl-enable-multi-exec)
@@ -31,6 +43,8 @@
(setq wl-user-mail-address-list
(list cl-net-address
cl-edu-address
+ cl-lcs-address
+ cl-tmp-address
"cleague@gmail.com"
"league@acm.org")
@@ -46,13 +60,9 @@
(list
; (list 'reply (regexp-quote cl-edu-address)
; (cons "From" (cl-from cl-edu-address)))
- (cons (cl-from-regex cl-net-address)
- '((wl-from . (cl-from cl-net-address))
- (wl-smtp-posting-server . "contrapunctus.net")
- (wl-smtp-posting-port . 465)
- (wl-smtp-connection-type . 'ssl)
- (wl-smtp-authenticate-type . "login")
- (wl-smtp-posting-user . "league")))
+ (cl-vps-smtp-settings cl-net-address)
+ (cl-vps-smtp-settings cl-lcs-address)
+ (cl-vps-smtp-settings cl-tmp-address)
(cons (cl-from-regex cl-edu-address)
'((wl-from . (cl-from cl-edu-address))
(wl-smtp-posting-server . (caar cl-smtp-liu-settings))
@@ -180,6 +190,10 @@
elmo-message-fetch-threshold 10485760
wl-message-buffer-prefetch-threshold 10485760)
+(setq ssl-program-arguments
+ '("--port" service host))
+
+
;; Summary & message viewer
(setq wl-use-petname nil
wl-message-visible-field-list
Please sign in to comment.
Something went wrong with that request. Please try again.