[mhc:00701] Re: mhc-snap20000606 (Re: Modification for pure Gnus)

[Yoshinari Nomura <nom@xxxxxxxxxxxxxxxxxxx>]

On Tue, 06 Jun 2000 15:29:18 +0900,
	Yoshinari Nomura <nom@xxxxxxxxxxxxxxxxxxx> said:

> 乃村です。やっぱり、もう 1回スナップを出すことにしました。
> quickhack です。
> 
>   http://www.quickhack.net/mhc/arc/mhc-snap20000606.tar.gz

ちょとやりすぎ。。。バグを込めてしまいました。
以下 diff です。CVS には commit 済みです。

tar.gz も作りなおしました。以下からどうぞ。

  http://www.quickhack.net/mhc/arc/mhc-snap20000606-2.tar.gz
--
nom

Index: mhc-date.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-date.el,v
retrieving revision 1.1.1.1.2.1
diff -u -r1.1.1.1.2.1 mhc-date.el
--- mhc-date.el	2000/06/06 06:07:39	1.1.1.1.2.1
+++ mhc-date.el	2000/06/06 09:49:29
@@ -101,10 +101,10 @@
    (dtime< t1 t2)
    (dtime= t1 t2)))
 
-(defmacro dtime-to-s (dtime &optional need-sec)
-  (` (if (, need-sec)
-	 (apply (quote format) "%02d:%02d:%02d" (, dtime))
-       (apply (quote format) "%02d:%02d" (, dtime)))))
+(defsubst dtime-to-s (dtime &optional need-sec)
+  (if need-sec
+      (apply 'format "%02d:%02d:%02d" dtime)
+    (apply 'format "%02d:%02d" dtime)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; ddate
@@ -215,8 +215,9 @@
 
 ;; for X-SC-*
 
-(defmacro ddate-to-s (ddate)
-  (` (apply (quote format) "%04d%02d%02d" (, ddate))))
+
+(defsubst ddate-to-s (ddate)
+  (apply 'format "%04d%02d%02d" ddate))
 
 (defmacro ddate-yymm-s (ddate)
   (` (apply (quote format) "%04d%02d" (, ddate))))
Index: mhc-minibuf.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-minibuf.el,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 mhc-minibuf.el
--- mhc-minibuf.el	2000/05/25 05:11:32	1.1.1.1
+++ mhc-minibuf.el	2000/06/06 09:49:29
@@ -201,8 +201,8 @@
 					default)
 				       (t
 					(mapconcat 
-					 '(lambda (ddate)
-					    (ddate-to-s1 ddate "/"))
+					 (function (lambda (ddate)
+						     (ddate-to-s1 ddate "/")))
 					 default
 					 " "))))
 				  (current-buffer)
@@ -257,7 +257,7 @@
 		   (current-buffer)
 		   candidate
 		   0
-		   'dtime-to-s))
+		   (function dtime-to-s)))
 	(cond 
 	 ((and (string-match
 		"^\\([0-9]+:[0-9]+\\)\\(-\\([0-9]+:[0-9]+\\)\\)?$" str)