From: okazaki <okazaki>
Date: Sun, 21 Jul 2002 06:43:15 +0000 (+0000)
Subject: (elmo-imap4-debug, elmo-imap4-debug-1):
X-Git-Tag: elmo-mark-root~46
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9e466dbb78bf147a2caaaf92c9620c689c8d829c;p=elisp%2Fwanderlust.git

(elmo-imap4-debug, elmo-imap4-debug-1):
Split `elmo-imap4-debug' into the macro `elmo-imap4-debug' and
the function `elmo-imap4-debug-1'.
---

diff --git a/elmo/elmo-imap4.el b/elmo/elmo-imap4.el
index d907e49..01a0683 100644
--- a/elmo/elmo-imap4.el
+++ b/elmo/elmo-imap4.el
@@ -192,13 +192,16 @@ Debug information is inserted in the buffer \"*IMAP4 DEBUG*\"")
   (luna-define-internal-accessors 'mime-elmo-imap-location))
 
 ;;; Debug
-(defsubst elmo-imap4-debug (message &rest args)
-  (if elmo-imap4-debug
-      (with-current-buffer (get-buffer-create "*IMAP4 DEBUG*")
-	(goto-char (point-max))
-	(if elmo-imap4-debug-inhibit-logging
-	    (insert "NO LOGGING\n")
-	  (insert (apply 'format message args) "\n")))))
+(defmacro elmo-imap4-debug (message &rest args)
+  (` (if elmo-imap4-debug
+	 (elmo-imap4-debug-1 (, message) (,@ args)))))
+
+(defun elmo-imap4-debug-1 (message &rest args)
+  (with-current-buffer (get-buffer-create "*IMAP4 DEBUG*")
+    (goto-char (point-max))
+    (if elmo-imap4-debug-inhibit-logging
+	(insert "NO LOGGING\n")
+      (insert (apply 'format message args) "\n"))))
 
 (defsubst elmo-imap4-decode-folder-string (string)
   (if elmo-imap4-use-modified-utf7