EUDC doesn't load options file

[Toby Allsopp]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the address@hidden mailing list.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:


Create a server in the server list, e.g. using the menus
(Tools->Directory Search->Server->New Server) and save the server list
(e.g. Tools->Directory Search->Server->Bookmark Current Server).  This
will create the eudc-options-file file.  Exit emacs, then start it
again.  Use the menu to load the server list (Tools->Directory
Search->Load Hotlist of Servers).

This should make the server you defined earlier appear in the
Tools->Directory Search->Server menu, but it doesn't because the
eudc-options-file isn't loaded becase it is only loaded if (message
"") is true, which it isn't.

Below is a patch that fixes it for me.

Toby.

? eudc-load-options-file.patch
Index: lisp/ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.6895
diff -c -r1.6895 ChangeLog
*** lisp/ChangeLog      18 Jan 2005 18:34:30 -0000      1.6895
--- lisp/ChangeLog      18 Jan 2005 22:39:36 -0000
***************
*** 1,3 ****
--- 1,7 ----
+ 2005-01-19  Toby Allsopp  <address@hidden>
+ 
+       * net/eudc.el: Fix options file loading.
+ 
  2005-01-18  Jay Belanger  <address@hidden>
  
        * calc/calc.el (calc-display-raw): Fix docstring.
Index: lisp/net/eudc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/net/eudc.el,v
retrieving revision 1.11
diff -c -r1.11 eudc.el
*** lisp/net/eudc.el    1 Nov 2004 07:47:18 -0000       1.11
--- lisp/net/eudc.el    18 Jan 2005 22:39:37 -0000
***************
*** 1214,1220 ****
  ;;; Load the options file
  (if (and (not noninteractive)
         (and (locate-library eudc-options-file)
!             (message ""))             ; Remove modeline message
         (not (featurep 'eudc-options-file)))
      (load eudc-options-file))
  
--- 1214,1220 ----
  ;;; Load the options file
  (if (and (not noninteractive)
         (and (locate-library eudc-options-file)
!             (progn (message "") t))   ; Remove modeline message
         (not (featurep 'eudc-options-file)))
      (load eudc-options-file))
  


In GNU Emacs 21.3.50.1 (i686-pc-cygwin, X toolkit, Xaw3d scroll bars)
 of 2005-01-19 on NAV-AKL-WDG-292
Distributor `The Cygwin/X Project', version 11.0.60801000
configured using `configure '--with-x-toolkit=yes''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  auto-compression-mode: t
  show-paren-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<help-echo> <help-echo> <help-echo> <down> <down> <down> 
<down> <down> <down> <down> <down> <down> <down> <down> 
<down> <tab> C-x 5 2 <switch-frame> <return> C-x v 
= <help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <menu-bar> 
<help-menu> <report-emacs-bug> E U D C SPC d o e s 
n t <backspace> ' t C-g C-x o <help-echo> <help-echo> 
<help-echo> <help-echo> <menu-bar> <help-menu> <re
port-emacs-bug>

Recent messages:
Loading gnus-topic...done
No gnus is bad news
Loading eudc...
Loading ~/.eudc-options...
Loading eudcb-ldap...done
Loading ~/.eudc-options...done
Loading eudc...done
Loading vc-cvs...done
Loading vc...done
Loading emacsbug...done
Quit