Mercurial > emacs
comparison lisp/gnus/nnmh.el @ 46966:47d8bf1dec03
* nnmh.el (nnmh-request-list-1): Use %.0f instead of %d to
avoid arithmetic errors.
author | ShengHuo ZHU <zsh@cs.rochester.edu> |
---|---|
date | Tue, 20 Aug 2002 07:57:01 +0000 |
parents | 9968f55ad26e |
children | b87254142b98 |
comparison
equal
deleted
inserted
replaced
46965:711ccca26771 | 46966:47d8bf1dec03 |
---|---|
1 ;;; nnmh.el --- mhspool access for Gnus | 1 ;;; nnmh.el --- mhspool access for Gnus |
2 | 2 |
3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000 | 3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002 |
4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
7 ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> | 7 ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> |
8 ;; Keywords: news, mail | 8 ;; Keywords: news, mail |
230 (save-excursion | 230 (save-excursion |
231 (set-buffer nntp-server-buffer) | 231 (set-buffer nntp-server-buffer) |
232 (goto-char (point-max)) | 232 (goto-char (point-max)) |
233 (insert | 233 (insert |
234 (format | 234 (format |
235 "%s %d %d y\n" | 235 "%s %.0f %.0f y\n" |
236 (progn | 236 (progn |
237 (string-match | 237 (string-match |
238 (regexp-quote | 238 (regexp-quote |
239 (file-truename (file-name-as-directory | 239 (file-truename (file-name-as-directory |
240 (expand-file-name nnmh-toplev)))) | 240 (expand-file-name nnmh-toplev)))) |