[Mew-dist 11646] 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.17
diff -c -r1.16 -r1.17
*** mew-smtp.el	1999/12/06 12:05:25	1.16
--- mew-smtp.el	1999/12/06 15:25:14	1.17
***************
*** 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)))))
  
  ;;;