"\n"
smtp-end-of-line))
smtp-sasl-user-name smtp-sasl-properties sasl-read-passphrase)
- (if (and (string= (car smtp-sasl-mechanisms) "DIGEST-MD5")
- ;; sendmail bug?
- (string-match "^\\([^@]*\\)@\\([^@]*\\)"
- wl-smtp-posting-user))
- (setq smtp-sasl-user-name (match-string 1 wl-smtp-posting-user)
- smtp-sasl-properties (list 'realm
- (match-string 2 wl-smtp-posting-user)))
- (setq smtp-sasl-user-name wl-smtp-posting-user
- smtp-sasl-properties nil))
+ (setq smtp-sasl-user-name wl-smtp-posting-user
+ smtp-sasl-properties (when wl-smtp-authenticate-realm
+ (list 'realm
+ wl-smtp-authenticate-realm)))
(setq sasl-read-passphrase
(function
(lambda (prompt)
;; If flag is set after send-function, the current mailbox
;; might changed by Fcc.
;; It causes a huge loss in the IMAP folder.
- (when (and parent-flag parent-number parent-folder)
+ (when (and parent-flag parent-number
+ (not (eq (length parent-folder) 0)))
(wl-folder-set-persistent-mark
parent-folder parent-number parent-flag))
(funcall wl-draft-send-function editing-buffer kill-when-done)