[Mew-dist 11259] Re: mew-1.94.2pre1

[Kazu Yamamoto ( 山本和彦 )]

From: Murata Takashi <Takashi.Murata at example.com>
Subject: [Mew-dist 11247] Re: mew-1.94.2pre1

> 1. 更新していないフォルダに g しても、"Range (update):"と聞かれる。
>    (setq mew-ask-range t) しています。
> 
> 2. フォルダを trash と Templete のように、大小文字で分けていたのに、
>    (win32のように？) g で ignore case されてしまう。
> 
> 3. 添付ファイルのcharsetを強制的に shift_jis にして C-cC-m すると
> 
>         Wrong type argument: char-or-string-p, nil
> 
>    と怒られてしまう。(いつからかは不明なのですが…1.94はOKです)
>    *Backtrace*を添付しようと思ったら…その添付で再現してしまいます…。

すいません。(_ _)

2. と 3. は以下のパッチで直ると思います。1. に関しては、心当たりはある
のですが、再現できません。詳しい手順を教えてください。

--かず

-------------- next part --------------
? LOGLESS
Index: mew-complete.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-complete.el,v
retrieving revision 1.37.2.2
diff -c -r1.37.2.2 mew-complete.el
*** mew-complete.el	1999/11/10 05:16:49	1.37.2.2
--- mew-complete.el	1999/11/12 06:06:59
***************
*** 176,182 ****
  mew-mail-domain-list concerned with the string between @ and 
  the cursor is inserted."
    (interactive)
!   (let ((word (mew-delete-backward-char "@")))
      (cond
       ((equal word nil) ;; @ doesn't exist.
        (if (null mew-mail-domain-list)
--- 176,183 ----
  mew-mail-domain-list concerned with the string between @ and 
  the cursor is inserted."
    (interactive)
!   (let ((word (mew-delete-backward-char "@"))
! 	(completion-ignore-case t))
      (cond
       ((equal word nil) ;; @ doesn't exist.
        (if (null mew-mail-domain-list)
***************
*** 316,323 ****
    (cdr (mew-complete-hit key alist)))
  
  (defun mew-complete (WORD ALIST MSG EXPAND-CHAR &optional TRY ALL GET HIT)
!   (let* ((completion-ignore-case t)
! 	 (ftry (or TRY (function try-completion)))
  	 (fall (or ALL (function all-completions)))
  	 (fget (or GET (function mew-complete-get)))
  	 (fhit (or HIT (function mew-complete-hit)))
--- 317,323 ----
    (cdr (mew-complete-hit key alist)))
  
  (defun mew-complete (WORD ALIST MSG EXPAND-CHAR &optional TRY ALL GET HIT)
!   (let* ((ftry (or TRY (function try-completion)))
  	 (fall (or ALL (function all-completions)))
  	 (fget (or GET (function mew-complete-get)))
  	 (fhit (or HIT (function mew-complete-hit)))
Index: mew-encode.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-encode.el,v
retrieving revision 1.96.2.11
diff -c -r1.96.2.11 mew-encode.el
*** mew-encode.el	1999/11/08 03:00:57	1.96.2.11
--- mew-encode.el	1999/11/12 06:06:59
***************
*** 240,249 ****
  	   (or (mew-charset-to-cs charset) mew-cs-infile) mew-cs-dummy
  	   (insert-file-contents file)))
        (mew-charset-sanity-check beg (point-max))
!       (setq charset (or charset
! 			(mew-charset-guess-region beg (point-max))
  			mew-us-ascii))
!       (setq cte (or cte (mew-charset-to-cte charset)))
        (cond
         ((mew-case-equal cte mew-7bit)) ;; stay with internal
         ((and (mew-case-equal cte mew-b64) (fboundp 'base64-encode-region))
--- 240,250 ----
  	   (or (mew-charset-to-cs charset) mew-cs-infile) mew-cs-dummy
  	   (insert-file-contents file)))
        (mew-charset-sanity-check beg (point-max))
!       ;; The old charset is input purpose only.
!       ;; Set new charset for transfer.
!       (setq charset (or (mew-charset-guess-region beg (point-max))
  			mew-us-ascii))
!       (setq cte (or cte (mew-charset-to-cte charset) mew-b64))
        (cond
         ((mew-case-equal cte mew-7bit)) ;; stay with internal
         ((and (mew-case-equal cte mew-b64) (fboundp 'base64-encode-region))
Index: mew-scan.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-scan.el,v
retrieving revision 1.68.2.4
diff -c -r1.68.2.4 mew-scan.el
*** mew-scan.el	1999/11/10 05:16:50	1.68.2.4
--- mew-scan.el	1999/11/12 06:06:59
***************
*** 82,87 ****
--- 82,88 ----
         (setq scanp t)))
       ;;
       (mew-mark-clean)
+      (set-buffer-modified-p nil)
       (if (or jump (mew-folder-imapp folder)) (goto-char (point-max)))
       (mew-buffers-setup folder)
       (setq range (mew-input-range folder alist askp))