mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(gnus-current-time-zone): Fix typo.

Browse Source 
(gnus-inews-organization): Fix zero length string operation bug.
This commit is contained in:
Richard M. Stallman 1993-07-20 04:25:04 +00:00
parent 9ed9f36f4b
commit 9723a15c97
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnuspost.el
View File

@ -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).