[Mew-dist 16151] Re: 巨大メイルの送信

[KOIE Hidetaka ( 鯉江英隆 )]

なんとなく形になりました。添削していただけると幸いです。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>
-------------- next part --------------
*** mew-smtp.el.~1~	Fri Jan 26 18:20:24 2001
--- mew-smtp.el	Sat Feb  3 02:49:43 2001
*************** (require 'mew)
*** 17,23 ****
  
  (defvar mew-smtp-info-list
    '("status" "recipients" "messages" "error" "lock" "ssh-process" "auth"
!     "string"))
  
  (mew-info-defun "mew-smtp-" mew-smtp-info-list)
  
--- 17,23 ----
  
  (defvar mew-smtp-info-list
    '("status" "recipients" "messages" "error" "lock" "ssh-process" "auth"
!     "string" "cont" "timer"))
  
  (mew-info-defun "mew-smtp-" mew-smtp-info-list)
  
*************** (defun mew-smtp-command-rcpt-to (pro pnm
*** 374,382 ****
      (process-send-string pro (format "RCPT TO:<%s>%s" recipient mew-cs-eol))))
  
  (defun mew-smtp-command-data (pro pnm)
-   (process-send-string pro (format "DATA%s" mew-cs-eol)))
- 
- (defun mew-smtp-command-content (pro pnm)
    (widen)
    (clear-visited-file-modtime)
    (goto-char (point-max))
--- 374,379 ----
*************** (defun mew-smtp-command-content (pro pnm
*** 390,397 ****
  	(goto-char (point-min))
  	(while (search-forward "\n" nil t) (replace-match "\r\n" nil t))))
    (set-buffer-modified-p nil)
!   (process-send-region pro (point-min) (point-max))
!   (process-send-string pro (format ".%s" mew-cs-eol)))
  
  (defun mew-queue-backup (orig)
    (let* ((norg (file-name-sans-extension orig))
--- 387,425 ----
          (goto-char (point-min))
          (while (search-forward "\n" nil t) (replace-match "\r\n" nil t))))
    (set-buffer-modified-p nil)
!   (mew-smtp-set-cont pnm (point-min))
!   (mew-smtp-set-timer pnm nil)
!   (process-send-string pro (format "DATA%s" mew-cs-eol)))
! 
! (defvar mew-smtp-debug nil)
! 
! (defun mew-smtp-command-content (pro pnm)
!   (save-excursion
!     (let ((cont (mew-smtp-get-cont pnm))
!           (inc 100)
!           (i 10))
!       (set-buffer (process-buffer pro))
!       (while (and (< cont (point-max)) (not (input-pending-p)) (< 0 i))
!         (let ((next (min (point-max) (+ cont inc))))
!           (if mew-smtp-debug
!               (message "send: %d" cont))
!           (process-send-region pro cont next)
!           (setq cont next)
!           (setq i (1- i))))
!       (mew-smtp-set-cont pnm cont)
!       (if (< cont (point-max))
!           (let ((timer
!                  (if (input-pending-p)
!                      (run-with-idle-timer 0.01 nil 
!                                           'mew-smtp-command-content pro pnm)
!                    (run-at-time "0.01 sec" nil
!                                 'mew-smtp-command-content pro pnm))))
!             (mew-smtp-set-timer pnm timer))
!         (if mew-smtp-debug
!             (message "send: done"))
!         (mew-smtp-set-cont pnm nil)
!         (mew-smtp-set-timer pnm nil)
!         (process-send-string pro (format ".%s" mew-cs-eol))))))
  
  (defun mew-queue-backup (orig)
    (let* ((norg (file-name-sans-extension orig))