summaryrefslogtreecommitdiff
path: root/lisp/=gnuspost.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1993-07-20 04:25:04 +0000
committerRichard M. Stallman <rms@gnu.org>1993-07-20 04:25:04 +0000
commit10a8bfcecc58dc85200f4cba42fd65d1d1a0cba6 (patch)
tree11938286ef182d9c2eec5e7ab0d653a8ce5908c8 /lisp/=gnuspost.el
parentc506d555f6b9f3950fb55731a8af8e58e7ba54d7 (diff)
downloademacs-10a8bfcecc58dc85200f4cba42fd65d1d1a0cba6.tar.gz
(gnus-current-time-zone): Fix typo.
(gnus-inews-organization): Fix zero length string operation bug.
Diffstat (limited to 'lisp/=gnuspost.el')
-rw-r--r--lisp/=gnuspost.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/=gnuspost.el b/lisp/=gnuspost.el
index 33aa02d2a12..53eac7ee2a6 100644
--- a/lisp/=gnuspost.el
+++ b/lisp/=gnuspost.el
@@ -3,6 +3,7 @@
;; Copyright (C) 1989, 1990, 1993 Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
+;; Version: $Header: gnuspost.el,v 4.1 93/07/19 15:43:46 umerin Exp $
;; Keywords: news
;; This file is part of GNU Emacs.
@@ -693,7 +694,7 @@ domain is undefined, the domain name is got from it."
(defun gnus-current-time-zone (time)
"The local time zone in effect at TIME, or nil if not known."
- (let ((z (and (fboundp 'current-time-zone) (current-time-zone now))))
+ (let ((z (and (fboundp 'current-time-zone) (current-time-zone time))))
(if (and z (car z)) z gnus-local-timezone)))
(defun gnus-inews-date ()
@@ -758,6 +759,7 @@ containing the organization."
gnus-local-organization
private-file)))
(and (stringp organization)
+ (> (length organization) 0)
(string-equal (substring organization 0 1) "/")
;; Get it from the user and system file.
;; Suggested by roland@wheaties.ai.mit.edu (Roland McGrath).