[Mew-dist 11647] Re: Mew 1.95b8
Kazu Yamamoto ( 山本和彦 )
kazu at example.com
1999年 12月 7日 (火) 00:36:42 JST
#うう。先ほどは文字化けしていてすみません。このバグも取りました。
From: KIRIAKE Masanori <seiken at example.com>
Subject: Re: [Mew-dist 11639] Mew 1.95b8
> 1.95B8を使ってみました。MTAがqmailだと問題になるのかもしれません。とりあ
> えずdebugバッファを送ります。
あまりにも単純なミスですいません。(Sendmail は文句を言ってくれなかっ
た。:-)
このパッチを当てて下さい。"." の透過性のバグも直ると思います。
--かず
-------------- next part --------------
? LOG
? LOGLESS
Index: mew-smtp.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-smtp.el,v
retrieving revision 1.16
retrieving revision 1.18
diff -c -r1.16 -r1.18
*** mew-smtp.el 1999/12/06 12:05:25 1.16
--- mew-smtp.el 1999/12/06 15:40:06 1.18
***************
*** 35,40 ****
--- 35,41 ----
nil
server port))
(process-kill-without-query pro)
+ (mew-set-process-cs pro mew-cs-text-for-read 'mew-cs-text-crlf)
(add-hook 'kill-emacs-hook (function mew-smtp-close))
(message "Connecting to %s with %s port ... done" server port))
(quit
***************
*** 88,107 ****
;;;
(defun mew-smtp-command-helo (pro)
! (process-send-string pro (format "HELO %s\r\n" mew-mail-domain)))
(defun mew-smtp-command-mail-from (pro)
;; Session is about to start. Let's lock the connection first.
(setq mew-smtp-lock t)
(set-buffer (process-buffer pro))
(let ((from (mew-header-parse-address mew-from:)))
! (process-send-string pro (format "MAIL FROM:<%s>\r\n" from))))
(defun mew-smtp-command-rcpt-to (pro recipient)
! (process-send-string pro (format "RCPT TO:<%s>\r\n" recipient)))
(defun mew-smtp-command-data (pro)
! (process-send-string pro "DATA\r\n"))
(defun mew-smtp-command-send-region (pro)
(set-buffer (process-buffer pro))
--- 89,108 ----
;;;
(defun mew-smtp-command-helo (pro)
! (process-send-string pro (format "HELO %s\n" mew-mail-domain)))
(defun mew-smtp-command-mail-from (pro)
;; Session is about to start. Let's lock the connection first.
(setq mew-smtp-lock t)
(set-buffer (process-buffer pro))
(let ((from (mew-header-parse-address mew-from:)))
! (process-send-string pro (format "MAIL FROM:<%s>\n" from))))
(defun mew-smtp-command-rcpt-to (pro recipient)
! (process-send-string pro (format "RCPT TO:<%s>\n" recipient)))
(defun mew-smtp-command-data (pro)
! (process-send-string pro "DATA\n"))
(defun mew-smtp-command-send-region (pro)
(set-buffer (process-buffer pro))
***************
*** 110,123 ****
(goto-char (point-max))
(if (not (bolp)) (insert "\n"))
(goto-char (point-min))
! (while (re-search-forward "^\\.$" nil t)
(insert ".")
(forward-line))
(set-buffer-modified-p nil)
! (mew-piolet
! mew-cs-dummy 'mew-cs-text-crlf
! (process-send-region pro (point-min) (point-max))
! (process-send-string pro ".\r\n")))
;;;
;;;
--- 111,122 ----
(goto-char (point-max))
(if (not (bolp)) (insert "\n"))
(goto-char (point-min))
! (while (re-search-forward "^\\." nil t)
(insert ".")
(forward-line))
(set-buffer-modified-p nil)
! (process-send-region pro (point-min) (point-max))
! (process-send-string pro ".\n"))
;;;
;;;
***************
*** 217,224 ****
()
(signal 'quit nil)))
(t
! (if (processp mew-smtp-process)
! (process-send-string mew-smtp-process "quit\r\n"))
(remove-hook 'kill-emacs-hook (function mew-smtp-close)))))
;;;
--- 216,224 ----
()
(signal 'quit nil)))
(t
! (if (and (processp mew-smtp-process)
! (eq (process-status mew-smtp-process) 'open))
! (process-send-string mew-smtp-process "quit\n"))
(remove-hook 'kill-emacs-hook (function mew-smtp-close)))))
;;;
***************
*** 254,260 ****
(info (concat orig mew-queue-info-suffix))
buf syntax)
(rename-file orig work t)
! (setq buf (find-file-noselect work))
(setq syntax (mew-lisp-load info))
(set-buffer buf)
(setq mew-draft-recipients (cdr (assoc "Recipients:" syntax)))
--- 254,262 ----
(info (concat orig mew-queue-info-suffix))
buf syntax)
(rename-file orig work t)
! (mew-frwlet
! mew-cs-text-for-read mew-cs-dummy
! (setq buf (find-file-noselect work)))
(setq syntax (mew-lisp-load info))
(set-buffer buf)
(setq mew-draft-recipients (cdr (assoc "Recipients:" syntax)))
Mew-dist メーリングリストの案内