1 |
;;; eudc-hotlist.el --- hotlist management for EUDC |
;;; eudc-hotlist.el --- hotlist management for EUDC |
2 |
|
|
3 |
;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc. |
;; Copyright (C) 1998, 1999, 2000, 2002 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Oscar Figueiredo <oscar@xemacs.org> |
;; Author: Oscar Figueiredo <oscar@xemacs.org> |
6 |
;; Maintainer: Oscar Figueiredo <oscar@xemacs.org> |
;; Maintainer: Oscar Figueiredo <oscar@xemacs.org> |
62 |
(defun eudc-edit-hotlist () |
(defun eudc-edit-hotlist () |
63 |
"Edit the hotlist of directory servers in a specialized buffer." |
"Edit the hotlist of directory servers in a specialized buffer." |
64 |
(interactive) |
(interactive) |
65 |
(let ((proto-col 0) |
(let ((proto-col 10) |
66 |
gap) |
gap) |
67 |
(switch-to-buffer (get-buffer-create "*EUDC Servers*")) |
(switch-to-buffer (get-buffer-create "*EUDC Servers*")) |
68 |
(setq buffer-read-only nil) |
(setq buffer-read-only nil) |