Mercurial > emacs
comparison lisp/=gnuspost.el @ 5295:666b3dcc9905
(gnus-post-news): Call gnus-read-distributions-file.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 23 Dec 1993 04:37:27 +0000 |
parents | d9fb93d75f74 |
children | 1209d8bbffd3 |
comparison
equal
deleted
inserted
replaced
5294:f5fdaf66b013 | 5295:666b3dcc9905 |
---|---|
1 ;;; gnuspost.el --- post news commands for GNUS newsreader | 1 ;;; gnuspost.el --- post news commands for GNUS newsreader |
2 | 2 |
3 ;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc. |
4 | 4 |
5 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> | 5 ;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
6 ;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnuspost.el,v 1.15 1993/11/22 06:38:28 rms Exp rms $ | 6 ;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnuspost.el,v 1.16 1993/11/22 06:44:12 rms Exp $ |
7 ;; Keywords: news | 7 ;; Keywords: news |
8 | 8 |
9 ;; This file is part of GNU Emacs. | 9 ;; This file is part of GNU Emacs. |
10 | 10 |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | 11 ;; GNU Emacs is free software; you can redistribute it and/or modify |
185 (setq subject (read-string "Subject: ")) | 185 (setq subject (read-string "Subject: ")) |
186 ;; Choose a distribution from gnus-distribution-list. | 186 ;; Choose a distribution from gnus-distribution-list. |
187 ;; completing-read should not be used with | 187 ;; completing-read should not be used with |
188 ;; 'require-match functionality in order to allow use | 188 ;; 'require-match functionality in order to allow use |
189 ;; of unknow distribution. | 189 ;; of unknow distribution. |
190 (gnus-read-distributions-file) | |
190 (setq distribution | 191 (setq distribution |
191 (if (consp gnus-distribution-list) | 192 (if (consp gnus-distribution-list) |
192 (completing-read "Distribution: " | 193 (completing-read "Distribution: " |
193 gnus-distribution-list | 194 gnus-distribution-list |
194 nil nil ;Never 'require-match | 195 nil nil ;Never 'require-match |