gmm-utils.el (gmm-called-interactively-p): Revert. This seems to causes Emacs to...

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 0516ed6cf4a33efd895bd80d8acc4b9635c8895a..89c551cfccf9744db4027cbb9dab28d27a28a13a 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,13 @@
 2012-12-05  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * gmm-utils.el (gmm-called-interactively-p): Revert.
+       This seems to causes Emacs to get stuck!
+       * gnus-art.el (article-unsplit-urls)
+       * gnus-bookmark.el (gnus-bookmark-bmenu-list)
+       * gnus-registry.el (gnus-registry-get-article-marks)
+       * message.el (message-goto-body)
+       (message-called-interactively-p): Revert.
+
        * gmm-utils.el (gmm-called-interactively-p): New function.
        * gnus-art.el (article-unsplit-urls)
        * gnus-bookmark.el (gnus-bookmark-bmenu-list)

diff --git a/lisp/gnus/gmm-utils.el b/lisp/gnus/gmm-utils.el
index 2e19615813106eb59fa8aab9a19fc02ae57569c0..91e4965e91c09934ebca6ca64fda455dc687ad04 100644 (file)
--- a/lisp/gnus/gmm-utils.el
+++ b/lisp/gnus/gmm-utils.el
@@ -417,18 +417,6 @@ coding-system."
        (write-region start end filename append visit lockname))
     (write-region start end filename append visit lockname mustbenew)))
 
-;; `interactive-p' is obsolete since Emacs 23.2.
-(defalias 'gmm-called-interactively-p
-  (condition-case nil
-      (progn
-       (eval '(called-interactively-p 'any))
-       ;; Emacs >=23.2
-       'called-interactively-p)
-    ;; Emacs <23.2
-    (wrong-number-of-arguments '(lambda (kind) (called-interactively-p)))
-    ;; XEmacs
-    (void-function '(lambda (kind) (interactive-p)))))
-
 ;; `flet' and `labels' are obsolete since Emacs 24.3.
 (defmacro gmm-flet (bindings &rest body)
   "Make temporary overriding function definitions.

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index ee5a1ad18c6ee7ae5c6a7cf82e5669c065544c0e..edcd7da2dddad42333a6652cb58fadef474293a3 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -45,7 +45,6 @@
 (require 'mm-uu)
 (require 'message)
 (require 'mouse)
-(require 'gmm-utils)
 
 (autoload 'gnus-msg-mail "gnus-msg" nil t)
 (autoload 'gnus-button-mailto "gnus-msg")
@@ -2719,7 +2718,7 @@ If READ-CHARSET, ask for a coding system."
       (while (re-search-forward
              "\\(\\(https?\\|ftp\\)://\\S-+\\) *\n\\(\\S-+\\)" nil t)
        (replace-match "\\1\\3" t)))
-    (when (gmm-called-interactively-p 'any)
+    (when (interactive-p)
       (gnus-treat-article nil))))
 
 (defun article-wash-html ()

diff --git a/lisp/gnus/gnus-bookmark.el b/lisp/gnus/gnus-bookmark.el
index 2ad1f23c1c0e89cb5ff7d32aec2a36d133e120e1..9f6654dd12d65c85d4aaf99e9851faf64bd629e2 100644 (file)
--- a/lisp/gnus/gnus-bookmark.el
+++ b/lisp/gnus/gnus-bookmark.el
@@ -53,7 +53,6 @@
 ;;; Code:
 
 (require 'gnus-sum)
-(require 'gmm-utils)
 
 ;; FIXME: should avoid using C-c (no?)
 ;; (define-key gnus-summary-mode-map "\C-crm" 'gnus-bookmark-set)
@@ -368,7 +367,7 @@ The leftmost column displays a D if the bookmark is flagged for
 deletion, or > if it is flagged for displaying."
   (interactive)
   (gnus-bookmark-maybe-load-default-file)
-  (if (gmm-called-interactively-p 'any)
+  (if (interactive-p)
       (switch-to-buffer (get-buffer-create "*Gnus Bookmark List*"))
     (set-buffer (get-buffer-create "*Gnus Bookmark List*")))
   (let ((inhibit-read-only t)

diff --git a/lisp/gnus/gnus-registry.el b/lisp/gnus/gnus-registry.el
index 755bf6ecc3fa69225c07a390d3a20281f5183d0b..71e00967548beaf70d22c462d885c7cd9f05c68b 100644 (file)
--- a/lisp/gnus/gnus-registry.el
+++ b/lisp/gnus/gnus-registry.el
@@ -86,7 +86,6 @@
 (require 'nnmail)
 (require 'easymenu)
 (require 'registry)
-(require 'gmm-utils)
 
 (defvar gnus-adaptive-word-syntax-table)
 
@@ -983,7 +982,7 @@ only the last one's marks are returned."
   (let* ((article (last articles))
          (id (gnus-registry-fetch-message-id-fast article))
          (marks (when id (gnus-registry-get-id-key id 'mark))))
-    (when (gmm-called-interactively-p 'interactive)
+    (when (interactive-p)
       (gnus-message 1 "Marks are %S" marks))
     marks))
 

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 145bab97409dd13b936cf4f56c6b76fd5e4cb7f3..2171dcf3edc8147c3716fea19d766328278d5f7e 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -3137,10 +3137,22 @@ M-RET    `message-newline-and-reformat' (break the line and reformat)."
   (push-mark)
   (message-position-on-field "Summary" "Subject"))
 
+(eval-when-compile
+  (defmacro message-called-interactively-p (kind)
+    (condition-case nil
+       (progn
+         (eval '(called-interactively-p 'any))
+         ;; Emacs >=23.2
+         `(called-interactively-p ,kind))
+      ;; Emacs <23.2
+      (wrong-number-of-arguments '(called-interactively-p))
+      ;; XEmacs
+      (void-function '(interactive-p)))))
+
 (defun message-goto-body ()
   "Move point to the beginning of the message body."
   (interactive)
-  (when (and (gmm-called-interactively-p 'any)
+  (when (and (message-called-interactively-p 'any)
             (looking-at "[ \t]*\n"))
     (expand-abbrev))
   (push-mark)