[Mew-dist 11647] Re: Mew 1.95b8

[Kazu Yamamoto ( 山本和彦 )]

＃うう。先ほどは文字化けしていてすみません。このバグも取りました。

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)))