[mew-dist 22606] history of sshserver with smtp

[Hideyuki SHIRAI ( 白井秀行 )]

日頃、smtp はどこかの server に ssh で入って
smtp-server=localhost ばかりなので、Smtplog に sshserver の履歴
も残して貰えるとありがたいです。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-smtp.el.~1.72.~	Mon Dec  9 20:22:20 2002
+++ mew-smtp.el	Mon Dec 16 15:33:32 2002
@@ -536,6 +536,7 @@
 	(msgid (mew-smtp-get-msgid pnm))
 	(recipients (mew-smtp-get-orig-recipients pnm))
 	(server (mew-smtp-get-server pnm))
+	(sshsrv (mew-smtp-ssh-server pnm))
 	(buf (generate-new-buffer mew-buffer-prefix)))
     (save-excursion
       (set-buffer buf)
@@ -543,6 +544,7 @@
       (and logtime (insert logtime))
       (and msgid (insert " id=" msgid))
       (and server (insert " server=" server))
+      (and sshsrv (insert " sshsrv=" sshsrv))
       (and recipients
 	   (setq recipients (mapconcat 'identity recipients ",")))
       (and recipients (insert " recipients=" recipients))