[Mew-dist 11335] Re: 1.95b4

[Hideyuki SHIRAI ( 白井秀行 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [Mew-dist 11278] Re: 1.95b4
Message-ID: <19991112182405Y.kazu at example.com>
Date: Fri, 12 Nov 1999 18:24:05 +0900

kazu> > それと、(mew-complete) で (completion-ignore-case t) が追加されました
kazu> > が、Addrbook で大文字小文字を使い分けていて、C'TAB' で良く使うアドレス
kazu> > に展開するようにしていたのに chifumi やら chuo... やらの候補から選ばな
kazu> > ければならなくなった(@1文字追加して 'TAB' なだけですが @ は shift key 
kazu> > を押すのでちょとだけ面倒だったりします。)のも、ちょっと不便です。
kazu> 
kazu> これは直しました。僕はドメイン名の循環補完を case-insensitive にしたかっ
kazu> たのです。

白井＠Beta4 で一瞬 ignore-case => nil になって喜んでいた者です。^^;;;

.mew-alias に自動的に登録されたものが大文字から始まっているのか
小文字から始まっているのかなんて全然覚えていませんから、林さんと
は逆に address の補完時には nil が良いと思っていたのです。

とはいっても趣味の範囲だと思うので、以下の様なパッチはいかがでしょ
うか？ default の動作は今と変わらないです。

おまけ。
すっかり忘れていたのですが、contrib/mew-browse.el にもパッチをお
願いします。(_ _)
-------------- next part --------------
*** mew-complete.el.orig	Tue Nov 16 10:04:59 1999
--- mew-complete.el	Tue Nov 16 10:23:10 1999
***************
*** 124,130 ****
  (defun mew-complete-folder ()
    "Folder complete function for Fcc:."
    (interactive)
!   (let ((word (mew-delete-backward-char)))
      (if (null word)
  	(if mew-use-imap
  	    (mew-complete-window-show (list "+" "=" "%"))
--- 124,131 ----
  (defun mew-complete-folder ()
    "Folder complete function for Fcc:."
    (interactive)
!   (let ((word (mew-delete-backward-char))
! 	(completion-ignore-case mew-complete-folder-ignore-case))
      (if (null word)
  	(if mew-use-imap
  	    (mew-complete-window-show (list "+" "=" "%"))
***************
*** 136,142 ****
  First alias key is completed. When completed solely or the @ character
  is inserted before the cursor, the short name is expanded to its address."
    (interactive)
!   (let ((word (mew-delete-backward-char)))
      (if (null word)
  	(tab-to-tab-stop)
        (if (string-match "@." word)
--- 137,144 ----
  First alias key is completed. When completed solely or the @ character
  is inserted before the cursor, the short name is expanded to its address."
    (interactive)
!   (let ((word (mew-delete-backward-char))
!     	(completion-ignore-case mew-complete-address-ignore-case))
      (if (null word)
  	(tab-to-tab-stop)
        (if (string-match "@." word)
***************
*** 149,155 ****
  (defun mew-complete-config ()
    "Complete function for Config:."
    (interactive)
!   (let ((word (or (mew-delete-value ",") "")))
      (mew-complete
       word
       (mew-slide-pair mew-config-list)
--- 151,158 ----
  (defun mew-complete-config ()
    "Complete function for Config:."
    (interactive)
!   (let ((word (or (mew-delete-value ",") ""))
!     	(completion-ignore-case mew-complete-config-ignore-case))
      (mew-complete
       word
       (mew-slide-pair mew-config-list)
*** mew-vars.el.orig	Tue Nov 16 10:04:59 1999
--- mew-vars.el	Tue Nov 16 10:23:50 1999
***************
*** 693,698 ****
--- 693,707 ----
      ("Config:"    . mew-complete-config))
    "*Completion function alist concerned with the key.")
  
+ (defvar mew-complete-folder-ignore-case completion-ignore-case
+   "*Non-nil means don't consider case significant in folder completion.")
+ 
+ (defvar mew-complete-address-ignore-case completion-ignore-case
+   "*Non-nil means don't consider case significant in address completion.")
+ 
+ (defvar mew-complete-config-ignore-case completion-ignore-case
+   "*Non-nil means don't consider case significant in config completion.")
+ 
  (defvar mew-field-circular-completion-switch
    '(("To:"          . mew-circular-complete-domain)
      ("Cc:"          . mew-circular-complete-domain)
-------------- next part --------------
--- mew-browse.el.orig	Wed Oct 20 20:20:54 1999
+++ mew-browse.el	Mon Nov  1 18:19:15 1999
@@ -75,7 +75,9 @@
   (interactive
    (list (read-from-minibuffer "Mew URL: ")))
   (if (or (not (boundp 'mew-mail-path)) (null mew-mail-path))
-      (save-excursion (mew)))
+      (save-excursion
+	(require 'mew)
+	(mew-init)))
   (let* ((append-buffer (and mew-browse-append-file
 			     (string= buffer-file-name
 				      (expand-file-name mew-browse-append-file))))
@@ -157,7 +159,9 @@
   (interactive
    (list (read-from-minibuffer "Mew mailto: ")))
   (if (or (not (boundp 'mew-mail-path)) (null mew-mail-path))
-      (save-excursion (mew)))
+      (save-excursion
+	(require 'mew)
+	(mew-init)))
   (mew-browse-url-mailto url))
 
 (defun mew-browse-url-mailto (url)