Mercurial > emacs

comparison lisp/=gnuspost.el @ 2601:c6fef1c54d00

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gnus-inews-organization): If ORGANIZATION is "", set it to nil.
author Roland McGrath <roland@gnu.org>
date Wed, 28 Apr 1993 20:31:02 +0000
parents b65cf676a09b
children cd90d49526ae
comparison
equal deleted inserted replaced
2600:615f7101473a 2601:c6fef1c54d00
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 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 ;; Keywords: news 6 ;; Keywords: news
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
642 ;; environment variable is intended for user specific while 642 ;; environment variable is intended for user specific while
643 ;; gnus-your-organization is for machine or organization specific. 643 ;; gnus-your-organization is for machine or organization specific.
644 (let ((organization (or (getenv "ORGANIZATION") 644 (let ((organization (or (getenv "ORGANIZATION")
645 gnus-your-organization 645 gnus-your-organization
646 (expand-file-name "~/.organization" nil)))) 646 (expand-file-name "~/.organization" nil))))
647 (if (equal organization "")
648 (setq organization nil))
647 (and (stringp organization) 649 (and (stringp organization)
648 (string-equal (substring organization 0 1) "/") 650 (string-equal (substring organization 0 1) "/")
649 ;; Get it from the user and system file. 651 ;; Get it from the user and system file.
650 ;; Suggested by roland@wheaties.ai.mit.edu (Roland McGrath). 652 ;; Suggested by roland@wheaties.ai.mit.edu (Roland McGrath).
651 (let ((dist (mail-fetch-field "distribution"))) 653 (let ((dist (mail-fetch-field "distribution")))