From: Katsumi Yamaoka <yamaoka@jpl.org>
Cc: ding@gnus.org
Subject: Re: new prefix needed for disblay?
Date: 20 Oct 1998 13:03:51 +0900 [thread overview]
Message-ID: <28lnmbswuw.fsf@kchisa.ga.sony.co.jp> (raw)
In-Reply-To: Chris Tessone's message of "19 Oct 1998 22:05:58 -500"
>>>>> In <x3glnmc2aqx.fsf@cappio.imsa.edu>
>>>>> Chris Tessone <tessone@imsa.edu> wrote:
> User-Agent: Gnus/5.0700000000000003 (Pterodactyl Gnus v0.35) Emacs/20.2
By the way, the following patch may fix the problem. :-)
--- pgnus-0.35/lisp/gnus.el~ Tue Oct 20 07:27:07 1998
+++ pgnus-0.35/lisp/gnus.el Tue Oct 20 12:32:03 1998
@@ -1996,19 +1996,26 @@
minor (string-to-number (match-string 2 number))
least (if (match-beginning 3)
(string-to-number (match-string 3 number))
- 0))
- (string-to-number
- (if (zerop major)
- (format "%s00%02d%02d"
- (if (member alpha '("(ding)" "d"))
- "4.99"
- (+ 5 (* 0.02
- (abs
- (- (mm-char-int (aref (downcase alpha) 0))
- (mm-char-int ?t))))
- -0.01))
- minor least)
- (format "%d.%02d%02d" major minor least))))))
+ 0)
+ number
+ (if (zerop major)
+ (format "%s00%02d%02d"
+ (if (member alpha '("(ding)" "d"))
+ "4.99"
+ (setq str (number-to-string
+ (+ 500 (* 2
+ (abs
+ (- (char-int
+ (aref (downcase alpha) 0))
+ (char-int ?t))))
+ -1)))
+ (concat (substring str 0 (- (length str) 2)) "."
+ (substring str (- (length str) 2))))
+ minor least)
+ (format "%d.%02d%02d" major minor least)))
+ (if (string-match "0+$" number)
+ (substring number 0 (match-beginning 0))
+ number))))
(defun gnus-info-find-node ()
"Find Info documentation of Gnus."
--- pgnus-0.35/lisp/gnus-msg.el~ Tue Oct 20 07:27:05 1998
+++ pgnus-0.35/lisp/gnus-msg.el Tue Oct 20 12:29:20 1998
@@ -544,7 +544,7 @@
"Stringified Gnus version and Emacs version."
(interactive)
(concat
- "Gnus/" (prin1-to-string (gnus-continuum-version gnus-version) t)
+ "Gnus/" (gnus-continuum-version gnus-version)
" (" gnus-version ")"
" "
(cond
--- pgnus-0.35/lisp/gnus-start.el~ Thu Sep 24 09:33:05 1998
+++ pgnus-0.35/lisp/gnus-start.el Tue Oct 20 12:30:53 1998
@@ -1893,7 +1893,8 @@
;; No .newsrc.eld file was loaded.
((null fcv) nil)
;; Gnus 5 .newsrc.eld was loaded.
- ((< fcv (gnus-continuum-version "September Gnus v0.1"))
+ ((< (string-to-number fcv)
+ (string-to-number (gnus-continuum-version "September Gnus v0.1")))
(gnus-convert-old-ticks)))))
(defun gnus-convert-old-ticks ()
--
Katsumi Yamaoka <yamaoka@jpl.org>
next prev parent reply other threads:[~1998-10-20 4:03 UTC|newest]
Thread overview: 40+ messages / expand[flat|nested] mbox.gz Atom feed top
1998-10-14 15:16 Wes Hardaker
1998-10-14 16:22 ` Hrvoje Niksic
1998-10-17 20:57 ` Lars Magne Ingebrigtsen
1998-10-18 12:58 ` Hrvoje Niksic
1998-10-18 16:25 ` Lars Magne Ingebrigtsen
1998-10-18 17:26 ` Hrvoje Niksic
1998-10-18 17:57 ` Lars Balker Rasmussen
1998-10-18 18:12 ` Hrvoje Niksic
1998-10-18 18:52 ` Lars Balker Rasmussen
1998-10-18 19:22 ` Hrvoje Niksic
1998-10-18 22:06 ` Lars Balker Rasmussen
1998-10-18 22:11 ` Hrvoje Niksic
1998-10-18 22:21 ` Alan Shutko
1998-10-18 22:30 ` Lars Magne Ingebrigtsen
1998-10-18 23:17 ` Hrvoje Niksic
1998-10-19 3:43 ` Shenghuo ZHU
1998-10-19 7:32 ` Steinar Bang
1998-10-19 8:41 ` Jean-Yves Perrier
1998-10-19 19:16 ` Oliver Jung
1998-10-20 3:05 ` Chris Tessone
1998-10-20 4:03 ` Katsumi Yamaoka [this message]
1998-10-20 8:36 ` Hrvoje Niksic
1998-10-20 8:46 ` Katsumi Yamaoka
1998-10-20 17:50 ` Lars Magne Ingebrigtsen
1998-10-20 10:11 ` Jari Aalto+list.ding
1998-10-20 3:21 ` Jason L Tibbitts III
1998-10-20 14:42 ` Justin Sheehy
1998-10-19 14:29 ` Colin Rafferty
1998-10-19 19:15 ` Lars Magne Ingebrigtsen
1998-10-19 21:22 ` Wes Hardaker
1998-10-20 8:35 ` Hrvoje Niksic
1998-10-20 8:47 ` Steinar Bang
1998-10-19 19:50 ` Kai Grossjohann
1998-10-18 17:57 ` Simon Josefsson
1998-10-19 19:47 ` Kai Grossjohann
1998-10-19 19:46 ` Kai Grossjohann
1998-10-19 20:10 ` Lars Magne Ingebrigtsen
1998-11-19 0:53 ` François Pinard
1998-11-19 5:54 ` Lars Magne Ingebrigtsen
1998-11-19 17:04 ` Colin Rafferty
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=28lnmbswuw.fsf@kchisa.ga.sony.co.jp \
--to=yamaoka@jpl.org \
--cc=ding@gnus.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).