aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1993-07-20 04:25:04 +0000
committerRichard M. Stallman1993-07-20 04:25:04 +0000
commit9723a15c97d0ba09c47482d251d732479863eb96 (patch)
treeba54a78e16c33daef397946629ead3a08b3b68df
parent9ed9f36f4b42ca81482fc952a202900ce87bf22e (diff)
downloademacs-9723a15c97d0ba09c47482d251d732479863eb96.tar.gz
emacs-9723a15c97d0ba09c47482d251d732479863eb96.zip
(gnus-current-time-zone): Fix typo.
(gnus-inews-organization): Fix zero length string operation bug.
-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 @@
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: gnuspost.el,v 4.1 93/07/19 15:43:46 umerin Exp $
6;; Keywords: news 7;; Keywords: news
7 8
8;; This file is part of GNU Emacs. 9;; This file is part of GNU Emacs.
@@ -693,7 +694,7 @@ domain is undefined, the domain name is got from it."
693 694
694(defun gnus-current-time-zone (time) 695(defun gnus-current-time-zone (time)
695 "The local time zone in effect at TIME, or nil if not known." 696 "The local time zone in effect at TIME, or nil if not known."
696 (let ((z (and (fboundp 'current-time-zone) (current-time-zone now)))) 697 (let ((z (and (fboundp 'current-time-zone) (current-time-zone time))))
697 (if (and z (car z)) z gnus-local-timezone))) 698 (if (and z (car z)) z gnus-local-timezone)))
698 699
699(defun gnus-inews-date () 700(defun gnus-inews-date ()
@@ -758,6 +759,7 @@ containing the organization."
758 gnus-local-organization 759 gnus-local-organization
759 private-file))) 760 private-file)))
760 (and (stringp organization) 761 (and (stringp organization)
762 (> (length organization) 0)
761 (string-equal (substring organization 0 1) "/") 763 (string-equal (substring organization 0 1) "/")
762 ;; Get it from the user and system file. 764 ;; Get it from the user and system file.
763 ;; Suggested by roland@wheaties.ai.mit.edu (Roland McGrath). 765 ;; Suggested by roland@wheaties.ai.mit.edu (Roland McGrath).