CVS update by aidan packages/xemacs-packages/eudc ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/10/13 16:51:25

  Modified:    packages/xemacs-packages/eudc ChangeLog eudc.el
Log:
Eliminate some non-X11 build failures.

Revision  Changes    Path
1.44      +12 -0     XEmacs/packages/xemacs-packages/mh-e/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/ChangeLog,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -p -r1.43 -r1.44
--- ChangeLog	2005/03/14 08:14:01	1.43
+++ ChangeLog	2007/10/13 14:51:20	1.44
@@ -1,3 +1,15 @@
+2007-10-13  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* mh-utils.el (mh-funcall-if-exists):
+	If a function is bound at compile time, that has a limited amount
+	to do with whether it's bound at runtime. Don't trust the check at
+	compile time, use the runtime check instead. 
+	* mh-xemacs-icons.el (require):
+	#'require of toolbar is superflous, since we may well be compiled
+	by a build without toolbar support but run on one with toolbar
+	support, and the previous change to mh-utils.el makes the
+	compile-time state irrelevant.
+
 2005-03-14  Norbert Koch  <viteno at xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.29 released.



1.8       +2 -2      XEmacs/packages/xemacs-packages/mh-e/mh-utils.el

Index: mh-utils.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/mh-utils.el,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -p -r1.7 -r1.8
--- mh-utils.el	2003/09/02 23:39:26	1.7
+++ mh-utils.el	2007/10/13 14:51:21	1.8
@@ -118,8 +118,8 @@ of `search' in the CL package."
 
 (defmacro mh-funcall-if-exists (function &rest args)
   "Call FUNCTION with ARGS as parameters if it exists."
-  (if (fboundp function)
-      `(funcall ',function , at args)))
+  `(if (fboundp ',function)
+    (funcall ',function , at args)))
 
 (defmacro mh-make-local-hook (hook)
   "Make HOOK local if needed.



1.3       +0 -2      XEmacs/packages/xemacs-packages/mh-e/mh-xemacs-icons.el

Index: mh-xemacs-icons.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/mh-e/mh-xemacs-icons.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -p -r1.2 -r1.3
--- mh-xemacs-icons.el	2005/03/11 07:14:20	1.2
+++ mh-xemacs-icons.el	2007/10/13 14:51:21	1.3
@@ -42,8 +42,6 @@
 ;; Avoid compiler warning
 (eval-and-compile
   (require 'mh-utils)
-  ;; See http://list-archive.xemacs.org/xemacs-beta/200307/msg00138.html
-  (require 'toolbar)
   (defvar mh-xemacs-toolbar-folder-toolbar nil)
   (defvar mh-xemacs-toolbar-letter-toolbar nil))
 



1.37      +5 -0      XEmacs/packages/xemacs-packages/eudc/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/eudc/ChangeLog,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -p -r1.36 -r1.37
--- ChangeLog	2004/10/04 12:07:45	1.36
+++ ChangeLog	2007/10/13 14:51:24	1.37
@@ -1,3 +1,8 @@
+2007-10-13  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* eudc.el:
+	Only install the menu if we're an interactive process.
+
 2004-09-29  Steve Youngs  <steve at youngs.au.com>
 
 	* Makefile (REQUIRES): Add ecrypto.



1.23      +5 -6      XEmacs/packages/xemacs-packages/eudc/eudc.el

Index: eudc.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/eudc/eudc.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -p -r1.22 -r1.23
--- eudc.el	2001/08/17 12:31:41	1.22
+++ eudc.el	2007/10/13 14:51:25	1.23
@@ -5,7 +5,7 @@
 ;; Author: Oscar Figueiredo <oscar at xemacs.org>
 ;; Maintainer: Oscar Figueiredo <oscar at xemacs.org>
 ;; Created: Feb 1998
-;; Version: $Revision: 1.22 $
+;; Version: $Revision: 1.23 $
 ;; Keywords: help
 
 ;; This file is part of XEmacs
@@ -1344,13 +1344,11 @@ queries the server for the existing fiel
 	      (message ""))		; Remove modeline message
 	 (not (featurep 'eudc-options-file)))
     (load eudc-options-file))
-  
-	 
+
 ;;; Install the full menu
-(unless (featurep 'infodock)
+(unless (or (featurep 'infodock) noninteractive)
   (eudc-install-menu))
 
-
 ;;; The following installs a short menu for EUDC at XEmacs startup.
 
 ;;;###autoload
@@ -1397,7 +1395,8 @@ This does nothing except loading eudc by
 	 (if (not (featurep 'eudc-autoloads))
 	     (if (string-match "XEmacs" emacs-version)
 		 (if (and (featurep 'menubar)
-			  (not (featurep 'infodock)))
+                          (not (featurep 'infodock))
+                          (not noninteractive))
 		     (add-submenu '("Tools") menu))
 	       (require 'easymenu)
 	       (cond