Changes committed gnus/lisp (ChangeLog dgnushack.el lpath.el nnmairix.el)

Modified: ChangeLog dgnushack.el lpath.el nnmairix.el

* dgnushack.el: Autoload debug, eudc-expand-inline and pgg-snarf-keys-region
 for XEmacs.

* lpath.el: Fbind w3m-region, bind ps-print-color-p for XEmacs.

* nnmairix.el: Require edmacro when compiling with XEmacs.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1865 gnus/lisp/ChangeLog:7.1866
--- ChangeLog:7.1865	Sat May 24 15:06:11 2008
+++ ChangeLog	Mon May 26 10:36:06 2008
@@ -1,3 +1,12 @@
+2008-05-26  Katsumi Yamaoka  <[email protected]>
+
+	* dgnushack.el: Autoload debug, eudc-expand-inline and
+	pgg-snarf-keys-region for XEmacs.
+
+	* lpath.el: Fbind w3m-region, bind ps-print-color-p for XEmacs.
+
+	* nnmairix.el: Require edmacro when compiling with XEmacs.
+
 2008-05-24  Reiner Steib  <[email protected]>
 
 	* gnus-sum.el (gnus-summary-initial-limit): Use unless instead of if.
Index: dgnushack.el
diff -u gnus/lisp/dgnushack.el:7.33 gnus/lisp/dgnushack.el:7.34
--- dgnushack.el:7.33	Mon Mar 17 02:16:04 2008
+++ dgnushack.el	Mon May 26 10:36:06 2008
@@ -219,6 +219,7 @@
     (autoload 'customize-save-variable "cus-edit" nil t)
     (autoload 'customize-set-variable "cus-edit" nil t)
     (autoload 'customize-variable "cus-edit" nil t)
+    (autoload 'debug "debug" nil t)
     (if (featurep 'mule)
 	(unless (locate-library "mule-ccl")
 	  (autoload 'define-ccl-program "ccl" nil nil 'macro))
@@ -226,6 +227,7 @@
     (autoload 'delete-annotation "annotations")
     (autoload 'dolist "cl-macs" nil nil 'macro)
     (autoload 'enriched-decode "enriched")
+    (autoload 'eudc-expand-inline "eudc" nil t)
     (autoload 'executable-find "executable")
     (autoload 'font-lock-fontify-buffer "font-lock" nil t)
     (autoload 'info "info" nil t)
@@ -233,6 +235,7 @@
     (autoload 'mail-fetch-field "mail-utils")
     (autoload 'make-annotation "annotations")
     (autoload 'make-display-table "disp-table")
+    (autoload 'pgg-snarf-keys-region "pgg" nil t)
     (autoload 'pp "pp")
     (autoload 'ps-despool "ps-print" nil t)
     (autoload 'ps-spool-buffer "ps-print" nil t)
Index: lpath.el
diff -u gnus/lisp/lpath.el:7.40 gnus/lisp/lpath.el:7.41
--- lpath.el:7.40	Mon Mar 17 02:16:04 2008
+++ lpath.el	Mon May 26 10:36:06 2008
@@ -60,15 +60,15 @@
      pgg-display-output-buffer posn-point posn-window put-image read-event
      select-safe-coding-system sort-coding-systems track-mouse
      url-generic-parse-url url-http-file-exists-p vcard-pretty-print
-     w3m-detect-meta-charset window-edges))
+     w3m-detect-meta-charset w3m-region window-edges))
   (maybe-bind
    '(adaptive-fill-first-line-regexp
      buffer-display-table cursor-in-non-selected-windows
      default-enable-multibyte-characters eudc-protocol filladapt-mode
      gnus-agent-expire-current-dirs help-xref-stack-item line-spacing
      mark-active mouse-selection-click-count mouse-selection-click-count-buffer
-     rmail-insert-mime-forwarded-message-function show-trailing-whitespace
-     tool-bar-mode transient-mark-mode url-version
+     ps-print-color-p rmail-insert-mime-forwarded-message-function
+     show-trailing-whitespace tool-bar-mode transient-mark-mode url-version
      w3-meta-charset-content-type-regexp w3-meta-content-type-charset-regexp))
 
   (when (or (and (= emacs-major-version 21) (= emacs-minor-version 4))
Index: nnmairix.el
diff -u gnus/lisp/nnmairix.el:7.5 gnus/lisp/nnmairix.el:7.6
--- nnmairix.el:7.5	Mon May 19 10:47:42 2008
+++ nnmairix.el	Mon May 26 10:36:06 2008
@@ -162,6 +162,11 @@
 
 ;;; === Keymaps
 
+(eval-when-compile
+  (when (featurep 'xemacs)
+    ;; The `kbd' macro requires that the `read-kbd-macro' macro is available.
+    (require 'edmacro)))
+
 ;; Group mode
 (defun nnmairix-group-mode-hook ()
   "Nnmairix group mode keymap."