[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[mhc:00386] Re: defmacro in 19.28 (Re: Re: mhc-snap20000209)
From: Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:00385] Re: defmacro in 19.28 (Re: Re: mhc-snap20000209)
Message-ID: <20000210162748D.nom@xxxxxxxxxxxxxxxxxxx>
Date: Thu, 10 Feb 2000 16:27:51 +0900
nom> > mew-face.el の defmacro なんですが、19.28 だとこうじゃないと動か
nom> > ないです。
nom> >
nom> > # 19.28 を未だに持っているから気付いちゃうのだから、ハードディス
nom> > # ク上から抹殺しようかなぁ。^^;;;
nom>
nom> ごめんなさい。19.28 チェックしないままで。
いえいえ。
macro の書法は、以前山本さんも mew-dist で『もういやだ 19.28』と
いってましたしね。
# 私は、古い書式の defmacro しか書けなかったりする。
nom> 最近やっと xemacs を入れたので、
nom> xemacs 21.x emacs 19.34/20.x は手元でチェックできてるんですが。
nom> 19.28 は遠い所のマシンにしか入ってないので、ついおっくうになって。
nom>
nom> 申し訳ないので、4つ目の emacs を入れることにします。
う〜ん、それもまたもったいないです。;_;
# どうせ普段使わないんだし。もったいないといえば、私の XEmacs も
# めったに使わないので、もったいない。
nom> nom # Windows は? って聞かないで。
Win32 では、Emacs 19.28 ベースの Mule for Win32 上での Mew がら
みの質問とかあるので、どうしても捨てられないんです。北口さんもも
う持っていないし。
UNIX 上でも生き残っているのは以下の理由。^^;;;
# 新たに Emacs 20.x を make して上書き install しちゃったけど、
# あぁぁ、動かないぞぉのときの最終兵器。
これだけだとゴミメールなので、山本さんが言っていたといえば、
From: Kazu Yamamoto (山本和彦) <kazu@xxxxxxxxxx> さん曰く
Subject: [Mew-dist 08335] Re: namazu.el for mew
Message-ID: <19990330121827N.kazu@xxxxxxxxxx>
Date: Tue, 30 Mar 1999 12:18:13 +0900
kazu> > (insert folder-dir "/" file "\n")))
kazu>
kazu> うみゅ。mew-path-separator を使って下さい。それ以上に、
kazu> expand-file-name の利用をお勧めします。
で、ちょっと気になっていたのでパッチです。
# 冗談で (setq mhc-mail-path "/hogehoge:~/Mail") ってやったんで
# すが、当然 Mew がついてこれませんね。やっぱり major-mode 化 す
# ると便利かもしれないです。
--
白井秀行＠ボーとしていて仕事に集中できないの。
--- mhc-misc.el.orig Wed Feb 9 17:43:13 2000
+++ mhc-misc.el Thu Feb 10 16:05:50 2000
@@ -172,7 +172,7 @@
(defvar mhc-mtime-file ".mhc-mtime")
(defun mhc-misc-get-mtime (obj)
- (let ((mtime-file (concat obj "/" mhc-mtime-file)))
+ (let ((mtime-file (expand-file-name mhc-mtime-file obj)))
(cond
((not (stringp obj))
nil)
@@ -184,7 +184,7 @@
nil))))
(defun mhc-misc-touch-directory (dir)
- (let ((mtime-file (concat dir "/" mhc-mtime-file)))
+ (let ((mtime-file (expand-file-name mhc-mtime-file dir)))
(if (file-writable-p mtime-file)
;; (write-region (point-min) (point-min) mtime-file nil 'silence))
(write-region 1 2 mtime-file nil 'silence))
--- mhc-schedule.el.orig Thu Feb 10 10:09:31 2000
+++ mhc-schedule.el Thu Feb 10 16:14:25 2000
@@ -640,8 +640,8 @@
(message "Setup mhc DB ... done."))
(defun mhc-db-date-to-slot (date)
- (list (concat mhc-db-base-dir "/" (ddate-yymm-s1 date "/"))
- (concat mhc-db-base-dir "/intersect")
+ (list (expand-file-name (ddate-yymm-s1 date "/") mhc-db-base-dir)
+ (expand-file-name "intersect" mhc-db-base-dir)
mhc-db-rc-file))
(defun mhc-db-busy-on-p (date btime &optional etime exc-path)
@@ -787,7 +787,7 @@
(old-path (mhc-sch-path sch))
(new-slot (mhc-sch-new-slot sch))
new-path
- (maildir (concat maildir "/")))
+ (maildir (file-name-as-directory maildir)))
(if (and old-slot (equal old-slot new-slot))
(setq new-path old-path)
(setq new-path (mhc-misc-get-new-path new-slot)))
@@ -808,7 +808,7 @@
(not (equal old-path new-path)))
(progn
(rename-file old-path (mhc-misc-get-new-path
- (concat mhc-db-base-dir "/trash")))
+ (expand-file-name "trash" mhc-db-base-dir)))
(mhc-misc-touch-directory old-slot)
(mhc-db-scan-slot old-slot)))
sch ;; return value
@@ -818,7 +818,7 @@
(let ((old-path (mhc-sch-path sch))
(old-slot (mhc-sch-old-slot sch))
(trash-path (mhc-misc-get-new-path
- (concat mhc-db-base-dir "/trash"))))
+ (expand-file-name "trash" mhc-db-base-dir))))
(if (and old-path (file-exists-p old-path))
(progn
(rename-file old-path trash-path)