[Mew-dist 11535] diff for b7

[Kazu Yamamoto ( 山本和彦 )]

以下のパッチを当てると、Draft モードで C-cC-c or C-cC-m した後に、期待
しているもともとのバッファに復帰できます。

作りかけの Header モードが付いていますが、気にしないで下さい。

--かず＠今日はもう店じまいなの
-------------- next part --------------
Index: mew-draft.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-draft.el,v
retrieving revision 1.162
retrieving revision 1.163
diff -c -r1.162 -r1.163
*** mew-draft.el	1999/11/29 05:24:31	1.162
--- mew-draft.el	1999/11/29 11:26:10	1.163
***************
*** 993,1000 ****
    (draft-mode-name))
  
  ;;;
  ;;;
! ;;;
  
  (defun mew-draft-make-message (&optional privacy)
    (interactive)
--- 993,1006 ----
    (draft-mode-name))
  
  ;;;
+ ;;; Sending and Queuing
  ;;;
! 
! (defmacro mew-draft-getback-window-config ()
!   (if (mew-current-get 'window)
!       (progn
! 	(set-window-configuration (mew-current-get 'window))
! 	(mew-current-set 'window nil))))
  
  (defun mew-draft-make-message (&optional privacy)
    (interactive)
***************
*** 1004,1009 ****
--- 1010,1016 ----
      (if (mew-encode privacy)
  	(progn
  	  (mew-encode-send-message fld msg 'justqueuing)
+ 	  (mew-draft-getback-window-config)
  	  (message "This message has been queued in %s." mew-queue-folder)))))
  
  (defun mew-draft-send-message ()
***************
*** 1016,1025 ****
--- 1023,1069 ----
  	(if (mew-encode)
  	    (progn
  	      (mew-encode-send-message fld msg)
+ 	      (mew-draft-getback-window-config)
  	      (message "Sending in background ... "))))))
  
  ;; backward-compatibility
  (fset 'mew-draft-send-letter (symbol-function 'mew-draft-send-message))
+ 
+ ;;;
+ ;;; Header mode
+ ;;;
+ 
+ (defun mew-header-mode ()
+   (interactive)
+   (auto-save-mode mew-draft-mode-auto-save)
+   (make-local-variable 'paragraph-start)
+   (setq paragraph-start (concat "^[ \t]*[-_][-_][-_]+$\\|" paragraph-start))
+   (make-local-variable 'paragraph-separate)
+   (setq paragraph-separate
+         (concat "^[ \t]*[-_][-_][-_]+$\\|" paragraph-separate))
+   (make-local-variable 'mail-header-separator)
+   (setq mail-header-separator mew-header-separator)
+   (setq major-mode 'mew-draft-mode)
+   (use-local-map mew-draft-mode-map)
+   (cd (expand-file-name mew-home))
+   (setq mode-name "Header")
+   (force-mode-line-update))
+ 
+ (defun mew-summary-send-to-others ()
+   (let* ((draft (mew-folder-new-message mew-draft-folder))
+          (attachdir (mew-attachdir draft)))
+     (mew-summary-msg-or-part
+      (mew-summary-display 'force)
+      (mew-summary-prepare-draft
+       (mew-draft-find-and-switch draft)
+       (mew-delete-directory-recursively attachdir)
+       (debug)
+       (mew-draft-header-insert mew-to: "")
+       (mew-draft-header-insert mew-cc: "")
+       (mew-header-prepared)
+       (goto-char (point-min))
+       (forward-char 4) ;; Don't use (end-of-line) since the value may exist.
+       (mew-header-mode)))))
  
  (provide 'mew-draft)