[Emacs-diffs] /srv/bzr/emacs/trunk r101364: imap.el (imap-debug): Removed -- doesn't seem very useful.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101364
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Sun 2010-09-05 23:49:02 +0000
message:
  imap.el (imap-debug): Removed -- doesn't seem very useful.
modified:
  lisp/ChangeLog
  lisp/net/imap.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-05 23:45:14 +0000
+++ b/lisp/ChangeLog    2010-09-05 23:49:02 +0000
@@ -1,9 +1,10 @@
 2010-09-05  Lars Magne Ingebrigtsen  <address@hidden>
 
-       * imap.el (imap-fetch-safe): Removed function, and altered all callers
-       to use `imap-fetch' instead.  According to the comments, this should be
-       safe, since all other IMAP clients use the 1:* syntax.
+       * net/imap.el (imap-fetch-safe): Removed function, and altered all
+       callers to use `imap-fetch' instead.  According to the comments, this
+       should be safe, since all other IMAP clients use the 1:* syntax.
        (imap-enable-exchange-bug-workaround): Removed.
+       (imap-debug): Removed -- doesn't seem very useful.
 
 2010-09-05  Lars Magne Ingebrigtsen  <address@hidden>
 

=== modified file 'lisp/net/imap.el'
--- a/lisp/net/imap.el  2010-09-05 23:45:14 +0000
+++ b/lisp/net/imap.el  2010-09-05 23:49:02 +0000
@@ -2897,104 +2897,6 @@
        (imap-forward)
        (nreverse body)))))
 
-(when imap-debug                       ; (untrace-all)
-  (require 'trace)
-  (buffer-disable-undo (get-buffer-create imap-debug-buffer))
-  (mapc (lambda (f) (trace-function-background f imap-debug-buffer))
-       '(
-         imap-utf7-encode
-         imap-utf7-decode
-         imap-error-text
-         imap-kerberos4s-p
-         imap-kerberos4-open
-         imap-ssl-p
-         imap-ssl-open
-         imap-network-p
-         imap-network-open
-         imap-interactive-login
-         imap-kerberos4a-p
-         imap-kerberos4-auth
-         imap-cram-md5-p
-         imap-cram-md5-auth
-         imap-login-p
-         imap-login-auth
-         imap-anonymous-p
-         imap-anonymous-auth
-         imap-open-1
-         imap-open
-         imap-opened
-         imap-ping-server
-         imap-authenticate
-         imap-close
-         imap-capability
-         imap-namespace
-         imap-send-command-wait
-         imap-mailbox-put
-         imap-mailbox-get
-         imap-mailbox-map-1
-         imap-mailbox-map
-         imap-current-mailbox
-         imap-current-mailbox-p-1
-         imap-current-mailbox-p
-         imap-mailbox-select-1
-         imap-mailbox-select
-         imap-mailbox-examine-1
-         imap-mailbox-examine
-         imap-mailbox-unselect
-         imap-mailbox-expunge
-         imap-mailbox-close
-         imap-mailbox-create-1
-         imap-mailbox-create
-         imap-mailbox-delete
-         imap-mailbox-rename
-         imap-mailbox-lsub
-         imap-mailbox-list
-         imap-mailbox-subscribe
-         imap-mailbox-unsubscribe
-         imap-mailbox-status
-         imap-mailbox-acl-get
-         imap-mailbox-acl-set
-         imap-mailbox-acl-delete
-         imap-current-message
-         imap-list-to-message-set
-         imap-fetch-asynch
-         imap-fetch
-         imap-message-put
-         imap-message-get
-         imap-message-map
-         imap-search
-         imap-message-flag-permanent-p
-         imap-message-flags-set
-         imap-message-flags-del
-         imap-message-flags-add
-         imap-message-copyuid-1
-         imap-message-copyuid
-         imap-message-copy
-         imap-message-appenduid-1
-         imap-message-appenduid
-         imap-message-append
-         imap-body-lines
-         imap-envelope-from
-         imap-send-command-1
-         imap-send-command
-         imap-wait-for-tag
-         imap-sentinel
-         imap-find-next-line
-         imap-arrival-filter
-         imap-parse-greeting
-         imap-parse-response
-         imap-parse-resp-text
-         imap-parse-resp-text-code
-         imap-parse-data-list
-         imap-parse-fetch
-         imap-parse-status
-         imap-parse-acl
-         imap-parse-flag-list
-         imap-parse-envelope
-         imap-parse-body-extension
-         imap-parse-body
-         )))
-
 (provide 'imap)
 
 ;;; imap.el ends here