Mercurial > emacs

comparison lisp/=gnuspost.el @ 5295:666b3dcc9905

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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