Re: 別のアカウントから送信

TAKAHASHI Kaoru <[email protected]> writes:

> gnus-posting-stylesを使ってFromや送信サーバー(X-Message-SMTP-Method)を
> 切り替えると楽です。他にも手はありそうですが。
>
> (setq gnus-posting-styles
>       '(("ここにlinux.comのアカウントで返信したいメールが入るフォルダ名の正規表現"
> 	 (From "Satoshi Yoshida <[email protected]>")
> 	 ("X-Message-SMTP-Method" "smtp LINUX.COM用SMTPサーバ 587 アカウント名"))))

> message-send-mail-hookあたりでsmtpmail-smtp-serviceを見て切り替える細工
> を入れる必要があったかと思います。
> ;; 乱暴な細工の例
> (add-hook 'message-send-mail-hook
> 	  (lambda ()
> 	    (cond
> 	     ((or (equal smtpmail-smtp-service "465")
> 		  (equal smtpmail-smtp-service 465))
> 	      (setq smtpmail-stream-type 'ssl))
> 	     ((or (equal smtpmail-smtp-service "submission")
> 		  (equal smtpmail-smtp-service "587")
> 		  (equal smtpmail-smtp-service 587))
> 	      (setq smtpmail-stream-type 'starttls))
> 	     (t
> 	      (setq smtpmail-stream-type nil)))))

上記を参考に以下のように設定したところ
nnml:mail.miscフォルダから送信・返信できました。
ありがとうございました。

(setq user-mail-address "[email protected]")
(setq user-full-name "Satoshi Yoshida")
(setq gnus-select-method '(nnml ""))

(setq mail-sources
      '((pop :server "cd.wakwak.com"
	     :user "syoshida"
	     :password "********"
	     :port 995
	     :leave nil
	     )))

(add-to-list 'gnus-secondary-select-methods
                  '(nnimap ""
                           (nnimap-address "imap.mail.me.com")
                           (nnimap-port 993)
                           (nnimap-list-pattern "archive.*")))

(setq message-send-mail-function 'message-smtpmail-send-it)
(setq smtpmail-smtp-server "smtp.mail.me.com")
(setq smtpmail-smtp-service 587)
(setq smtpmail-stream-type 'nil)

(setq gnus-posting-styles
      '(("nnml:mail.misc"
	 (From "Satoshi Yoshida <[email protected]>")
	 ("X-Message-SMTP-Method" "smtp cd.wakwak.com 465 syoshida"))))

(add-hook 'message-send-mail-hook
	  (lambda ()
	    (cond
	     ((or (equal smtpmail-smtp-service "465")
		  (equal smtpmail-smtp-service 465))
	      (setq smtpmail-stream-type 'ssl))
	     ((or (equal smtpmail-smtp-service "submission")
		  (equal smtpmail-smtp-service "587")
		  (equal smtpmail-smtp-service 587))
	      (setq smtpmail-stream-type 'starttls))
	     (t
	      (setq smtpmail-stream-type nil)))))

;(setq message-send-mail-function 'message-smtpmail-send-it)
;(setq smtpmail-smtp-server "cd.wakwak.com")
;(setq smtpmail-smtp-service 465)
;(setq smtpmail-stream-type 'ssl)

(setq smtpmail-debug-info t)

-- 
吉田聡 https://twitter.com/dynamisxar