diff options
| author | Richard M. Stallman | 1993-07-20 04:25:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-20 04:25:04 +0000 |
| commit | 9723a15c97d0ba09c47482d251d732479863eb96 (patch) | |
| tree | ba54a78e16c33daef397946629ead3a08b3b68df | |
| parent | 9ed9f36f4b42ca81482fc952a202900ce87bf22e (diff) | |
| download | emacs-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.el | 4 |
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). |