changeset 4172:33ace0ef7c4d

(gnus-current-time-zone): Fix typo. (gnus-inews-organization): Fix zero length string operation bug.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jul 1993 04:25:04 +0000
parents 341cd3b063ae
children 2b3fb8d12918
files lisp/=gnuspost.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=gnuspost.el	Tue Jul 20 03:02:12 1993 +0000
+++ b/lisp/=gnuspost.el	Tue Jul 20 04:25:04 1993 +0000
@@ -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 @@
 
 (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 @@
 			   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).