From: Pavel Janík <Pavel@Janik.cz>
Date: Sat, 5 Jan 2002 18:51:11 +0000 (+0000)
Subject: (eudc-edit-hotlist): Avoid error when editing an empty hotlist.
X-Git-Tag: ttn-vms-21-2-B4~17301
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=082d147b669db9be90897ad6ceec3b5e05f22770;p=emacs.git

(eudc-edit-hotlist): Avoid error when editing an empty hotlist.
---

diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el
index 4d9f07580ba..2496a28e633 100644
--- a/lisp/net/eudc-hotlist.el
+++ b/lisp/net/eudc-hotlist.el
@@ -1,6 +1,6 @@
 ;;; eudc-hotlist.el --- hotlist management for EUDC
 
-;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc.
 
 ;; Author: Oscar Figueiredo <oscar@xemacs.org>
 ;; Maintainer: Oscar Figueiredo <oscar@xemacs.org>
@@ -62,7 +62,7 @@ These are the special commands of this mode:
 (defun eudc-edit-hotlist ()
   "Edit the hotlist of directory servers in a specialized buffer."
   (interactive)
-  (let ((proto-col 0)
+  (let ((proto-col 10)
 	gap)
     (switch-to-buffer (get-buffer-create "*EUDC Servers*"))
     (setq buffer-read-only nil)