Give a backtrace if debug-on-quit is set and the user hits `C-g'.
authorLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Tue, 15 Mar 2011 15:52:31 +0000 (16:52 +0100)
committerLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Tue, 15 Mar 2011 15:52:31 +0000 (16:52 +0100)
lisp/ChangeLog
lisp/gnus-group.el
lisp/gnus-int.el
lisp/gnus-start.el
lisp/nnimap.el

index fa4d6c8..e7bcd39 100644 (file)
@@ -1,3 +1,13 @@
+2011-03-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-int.el (gnus-open-server): Ditto.
+
+       * gnus-start.el (gnus-activate-group): Give a backtrace if
+       debug-on-quit is set and the user hits `C-g'.
+       (gnus-read-active-file): Ditto.
+
+       * gnus-group.el (gnus-group-read-ephemeral-group): Ditto.
+
 2011-03-15  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * message.el (message-yank-original): Use cond instead of CL case.
index 9ed3cf0..e928811 100644 (file)
@@ -2313,9 +2313,10 @@ Return the name of the group if selection was successful."
                       gnus-fetch-old-ephemeral-headers))
                  (gnus-group-read-group (or number t) t group select-articles))
            group)
-       ;;(error nil)
        (quit
-        (message "Quit reading the ephemeral group")
+        (if debug-on-quit
+            (debug "Quit")
+          (message "Quit reading the ephemeral group"))
         nil)))))
 
 (defcustom gnus-gmane-group-download-format
index a67063b..ef15a47 100644 (file)
@@ -270,7 +270,9 @@ If it is down, start it up (again)."
                               server (error-message-string err))
                 nil)
                (quit
-                (gnus-message 1 "Quit trying to open server %s" server)
+                (if debug-on-quit
+                    (debug "Quit")
+                  (gnus-message 1 "Quit trying to open server %s" server))
                 nil)))
             open-offline)
        ;; If this hasn't been opened before, we add it to the list.
index c6ff604..afded87 100644 (file)
@@ -1462,9 +1462,10 @@ If SCAN, request a scan of that group as well."
               (inline (gnus-request-group group (or dont-sub-check dont-check)
                                           method
                                           (gnus-get-info group)))
-            ;;(error nil)
             (quit
-             (message "Quit activating %s" group)
+             (if debug-on-quit
+                 (debug "Quit")
+               (message "Quit activating %s" group))
              nil)))
         (unless dont-check
           (setq active (gnus-parse-active))
@@ -2004,7 +2005,9 @@ If SCAN, request a scan of that group as well."
              ;; We catch C-g so that we can continue past servers
              ;; that do not respond.
              (quit
-              (message "Quit reading the active file")
+              (if debug-on-quit
+                  (debug "Quit")
+                (message "Quit reading the active file"))
               nil))))))))
 
 (defun gnus-read-active-file-1 (method force)
index e76ead5..11c521f 100644 (file)
@@ -1674,6 +1674,8 @@ textual parts.")
            (goto-char (point-max)))
           openp)
       (quit
+       (when debug-on-quit
+        (debug "Quit"))
        ;; The user hit C-g while we were waiting: kill the process, in case
        ;; it's a gnutls-cli process that's stuck (tends to happen a lot behind
        ;; NAT routers).