From 9e466dbb78bf147a2caaaf92c9620c689c8d829c Mon Sep 17 00:00:00 2001 From: okazaki Date: Sun, 21 Jul 2002 06:43:15 +0000 Subject: [PATCH] (elmo-imap4-debug, elmo-imap4-debug-1): Split `elmo-imap4-debug' into the macro `elmo-imap4-debug' and the function `elmo-imap4-debug-1'. --- elmo/elmo-imap4.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) 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 -- 1.7.10.4