encode-time

encode-time

[Katsumi Yamaoka]

[-- Attachment #1: Type: text/plain, Size: 155 bytes --]

 Sometimes arguments of encode-time() include list, which are in
Gnus 5.6.43 or  Pterodactyl Gnus 0.17, and then `Wrong number of
arguments' error occurs.

[-- Attachment #2: gnus-5.6.43.patch --]
[-- Type: application/octet-stream, Size: 620 bytes --]

--- gnus-5.6.43/lisp/gnus-logic.el~	Mon Jun  1 11:30:21 1998
+++ gnus-5.6.43/lisp/gnus-logic.el	Tue Sep  8 09:11:29 1998
@@ -164,9 +164,9 @@
     (funcall type match (or (aref gnus-advanced-headers index) 0))))
 
 (defun gnus-advanced-date (index match type)
-  (let ((date (encode-time (parse-time-string
-			    (aref gnus-advanced-headers index))))
-	(match (encode-time (parse-time-string match))))
+  (let ((date (apply 'encode-time (parse-time-string
+				   (aref gnus-advanced-headers index))))
+	(match (apply 'encode-time (parse-time-string match))))
     (cond
      ((eq type 'at)
       (equal date match))

[-- Attachment #3: pgnus-0.17.patch --]
[-- Type: application/octet-stream, Size: 1352 bytes --]

--- pgnus-0.17/lisp/drums.el~	Mon Sep  7 04:34:42 1998
+++ pgnus-0.17/lisp/drums.el	Tue Sep  8 09:29:22 1998
@@ -179,7 +179,7 @@
 
 (defun drums-parse-date (string)
   "Return an Emacs time spec from STRING."
-  (encode-time (parse-time-string string)))
+  (apply 'encode-time (parse-time-string string)))
     
 (provide 'drums)
 
--- pgnus-0.17/lisp/gnus-art.el~	Mon Sep  7 04:34:43 1998
+++ pgnus-0.17/lisp/gnus-art.el	Tue Sep  8 09:29:22 1998
@@ -1353,7 +1353,7 @@
 	    (current-time-string
 	     (let ((e (parse-time-string date)))
 	       (setcar (last e) 0)
-	       (encode-time e)))))
+	       (apply 'encode-time e)))))
    ;; Get the original date from the article.
    ((eq type 'original)
     (concat "Date: " date))
--- pgnus-0.17/lisp/gnus-logic.el~	Sun Sep  6 04:52:47 1998
+++ pgnus-0.17/lisp/gnus-logic.el	Tue Sep  8 09:29:22 1998
@@ -164,9 +164,9 @@
     (funcall type match (or (aref gnus-advanced-headers index) 0))))
 
 (defun gnus-advanced-date (index match type)
-  (let ((date (encode-time (parse-time-string
-			    (aref gnus-advanced-headers index))))
-	(match (encode-time (parse-time-string match))))
+  (let ((date (apply 'encode-time (parse-time-string
+				   (aref gnus-advanced-headers index))))
+	(match (apply 'encode-time (parse-time-string match))))
     (cond
      ((eq type 'at)
       (equal date match))

[-- Attachment #4: Type: text/plain, Size: 44 bytes --]

-- 
Katsumi Yamaoka <yamaoka@ga.sony.co.jp>