[Mew-dist 04537] Re: mew-1.93b30.tar.gz

[kazu at example.com]

From: Akihisa Konno <minnie at example.com>
Subject: Re: [Mew-dist 04526] Re: mew-1.93b30.tar.gz
Date: Wed, 06 May 1998 19:35:24 +0900

>   これに便乗して、ひとつお願いです。mew-summary-pack ("O") のとき、
> "Pack +folder? (y or n)" と聞かれますが、聞かずに無条件にpackするよう
> なカスタマイズができるように、適当な変数を用意していただけませんか。

mew-ask-pack を定義しました。nil に設定して下さい。

From: 橋本弘藏 <kozo at example.com>
Subject: Re: [Mew-dist 04526] Re: mew-1.93b30.tar.gz
Date: Wed, 06 May 1998 19:54:12 +0900

> 送る前に必ず聞かれる
> Content Type: was automatically added. Send this message? 
> です。

これは、C-cC-m をしないからです。また、mew-auto-add-content-type を t 
にしておけば、C-cC-m を省略しても OK だったのですが、名前が悪いような
ので mew-ask-send に変えます。nil に設定して下さい。

--かず

Index: mew-vars.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-vars.el,v
retrieving revision 1.36
diff -c -r1.36 mew-vars.el
*** mew-vars.el	1998/05/06 03:50:41	1.36
--- mew-vars.el	1998/05/06 11:54:55
***************
*** 735,740 ****
--- 735,747 ----
  (defvar mew-ask-cite-prefix nil
    "*If non-nil, ask citation prefix when cite a message")
  
+ (defvar mew-ask-pack t
+   "*If non-nil, ask whether or not you really want to pack.")
+ 
+ (defvar mew-ask-send t
+   "*If non-nil, ask whether or not you really want to send the message
+ which you composed without explicit C-cC-m.")
+ 
  ;;
  ;; Field Magic
  ;;
***************
*** 782,790 ****
    "If non-nil and if there are queued messages in  IM's QueueDir,
  they are flushed at \"imget\"(i.e. 'i'). This idea saves money in 
  dial up environment.")
- 
- (defvar mew-auto-add-content-type nil
-   "*Automatically adds MIME Content-Type: header if non-nil, asks otherwise.")
  
  ;;
  ;; Minibuf
--- 789,794 ----
Index: mew-summary.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-summary.el,v
retrieving revision 1.46
diff -c -r1.46 mew-summary.el
*** mew-summary.el	1998/05/06 03:50:39	1.46
--- mew-summary.el	1998/05/06 11:52:11
***************
*** 1547,1553 ****
      (if (not (mew-summary-exclusive-p))
  	()
        (mew-mark-clean-up)
!       (if (not (y-or-n-p (format "Pack %s? " folder)))
  	  ()
  	(setq lines (mew-summary-mark-collect3 mew-mark-review))
  	(setq mew-summary-buffer-process t)
--- 1547,1553 ----
      (if (not (mew-summary-exclusive-p))
  	()
        (mew-mark-clean-up)
!       (if (and mew-ask-pack (not (y-or-n-p (format "Pack %s? " folder))))
  	  ()
  	(setq lines (mew-summary-mark-collect3 mew-mark-review))
  	(setq mew-summary-buffer-process t)
Index: mew-draft.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-draft.el,v
retrieving revision 1.20
diff -c -r1.20 mew-draft.el
*** mew-draft.el	1998/04/27 13:56:41	1.20
--- mew-draft.el	1998/05/06 11:55:53
***************
*** 536,542 ****
  	(mew-draft-real-send-letter arg)
        (mew-draft-make-message)
        (condition-case nil
! 	  (if (or mew-auto-add-content-type
  		  (y-or-n-p (format "%s was automatically added. Send this message? " mew-ct:)))
  	      (mew-draft-real-send-letter arg)
  	    (mew-draft-undo))
--- 536,542 ----
  	(mew-draft-real-send-letter arg)
        (mew-draft-make-message)
        (condition-case nil
! 	  (if (or (not mew-ask-send)
  		  (y-or-n-p (format "%s was automatically added. Send this message? " mew-ct:)))
  	      (mew-draft-real-send-letter arg)
  	    (mew-draft-undo))