aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/gnuspost.el
diff options
context:
space:
mode:
authorRichard M. Stallman <[email protected]>1993-07-20 04:25:04 +0000
committerRichard M. Stallman <[email protected]>1993-07-20 04:25:04 +0000
commit9723a15c97d0ba09c47482d251d732479863eb96 (patch)
treeba54a78e16c33daef397946629ead3a08b3b68df /lisp/gnuspost.el
parent9ed9f36f4b42ca81482fc952a202900ce87bf22e (diff)
(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 33aa02d2a1..53eac7ee2a 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 <[email protected]>
+;; 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 [email protected] (Roland McGrath).