Skip to content

GitLab

Commit 2368506d authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(gnus-post-news): Call gnus-read-distributions-file.

parent a47d9087
Hide whitespace changes
Inline Side-by-side
Showing with 2 additions and 1 deletion
lisp/gnuspost.el
View file @ 2368506d
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc. ;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnuspost.el,v 1.15 1993/11/22 06:38:28 rms Exp rms $ ;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnuspost.el,v 1.16 1993/11/22 06:44:12 rms Exp $
;; Keywords: news ;; Keywords: news
;; This file is part of GNU Emacs. ;; This file is part of GNU Emacs.
...@@ -187,6 +187,7 @@ Type \\[describe-mode] once editing the article to get a list of commands." ...@@ -187,6 +187,7 @@ Type \\[describe-mode] once editing the article to get a list of commands."
;; completing-read should not be used with ;; completing-read should not be used with
;; 'require-match functionality in order to allow use ;; 'require-match functionality in order to allow use
;; of unknow distribution. ;; of unknow distribution.
(gnus-read-distributions-file)
(setq distribution (setq distribution
(if (consp gnus-distribution-list) (if (consp gnus-distribution-list)
(completing-read "Distribution: " (completing-read "Distribution: "
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment