projects
/
elisp
/
gnus.git-
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cd78cf8
)
Sync
author
yamaoka
<yamaoka>
Tue, 23 May 2000 01:09:24 +0000
(
01:09
+0000)
committer
yamaoka
<yamaoka>
Tue, 23 May 2000 01:09:24 +0000
(
01:09
+0000)
with `t-gnus-6_14'.
ChangeLog
patch
|
blob
|
history
lisp/nnshimbun.el
patch
|
blob
|
history
diff --git
a/ChangeLog
b/ChangeLog
index
c7a5d06
..
d1cd79d
100644
(file)
--- a/
ChangeLog
+++ b/
ChangeLog
@@
-1,3
+1,12
@@
+2000-05-23 KOSEKI Yoshinori <kose@wizard.tamra.co.jp>
+
+ * lisp/nnshimbun.el (nnshimbun-mime-encode-string): Fix wrong
+ close brackets.
+
+2000-05-23 TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
+
+ * lisp/nnshimbun.el: Change coding-system.
+
2000-05-21 TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
* texi/gnus-ja.texi (nnshimbun): Add description.
2000-05-21 TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
* texi/gnus-ja.texi (nnshimbun): Add description.
@@
-10,9
+19,9
@@
2000-05-21 TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
2000-05-21 TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
- * nnshimbun.el: New backend.
+ * lisp/nnshimbun.el: New backend.
- * gnus-group.el (gnus-group-make-shimbun-group): New command.
+ * lisp/gnus-group.el (gnus-group-make-shimbun-group): New command.
2000-05-17 Kenichi OKADA <okada@opaopa.org>
2000-05-17 Kenichi OKADA <okada@opaopa.org>
diff --git
a/lisp/nnshimbun.el
b/lisp/nnshimbun.el
index
849a1ea
..
c3b1709
100644
(file)
--- a/
lisp/nnshimbun.el
+++ b/
lisp/nnshimbun.el
@@
-1,5
+1,4
@@
-;;; -*- mode: Emacs-Lisp; coding: euc-japan; -*-
-;;; $Id: nnshimbun.el,v 1.1.4.1 2000-05-21 22:48:55 yamaoka Exp $
+;;; -*- mode: Emacs-Lisp; coding: junet-unix -*-
;;; Author: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
;;; Keywords: news
;;; Author: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
;;; Keywords: news
@@
-433,8
+432,8
@@
(insert (nnweb-decode-entities-string string))
(rfc2047-encode-region (point-min) (point-max))
(buffer-substring (point-min) (point-max)))
(insert (nnweb-decode-entities-string string))
(rfc2047-encode-region (point-min) (point-max))
(buffer-substring (point-min) (point-max)))
- "\n"))
- "")))
+ "\n")
+ ""))))
(defun nnshimbun-lapse-seconds (time)
(let ((now (current-time)))
(defun nnshimbun-lapse-seconds (time)
(let ((now (current-time)))
@@
-451,15
+450,15
@@
(if (fboundp 'string-to-char-list)
'string-to-char-list
'string-to-list) "\
(if (fboundp 'string-to-char-list)
'string-to-char-list
'string-to-list) "\
-!)-_~}]:;',.?¡¢¡£¡¤¡¥¡¦¡§¡¨¡©¡ª¡«¡¬¡¡®¡¯¡°¡±¡²¡³¡´¡µ¡¶¡·¡¸¡¹¡º¡»¡¼¡½¡¾¡¿¡À¡Á\
-¡Â¡Ã¡Ä¡Å¡Ç¡É¡Ë¡Í¡Ï¡Ñ¡Ó¡Õ¡×¡Ù¡Û¡ë¡ì¡í¡î¤¡¤£¤¥¤§¤©¤Ã¤ã¤å¤ç¤î¥¡¥£¥¥¥§¥©¥Ã¥ã¥å¥ç¥î¥õ¥ö"))
+!)-_~}]:;',.?
\e
$B!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?!@!A
\e
(B\
+
\e
$B!B!C!D!E!G!I!K!M!O!Q!S!U!W!Y![!k!l!m!n$!$#$%$'$)$C$c$e$g$n%!%#%%%'%)%C%c%e%g%n%u%v
\e
(B"))
(defconst nnshimbun-kinsoku-eol-list
(funcall
(if (fboundp 'string-to-char-list)
'string-to-char-list
'string-to-list)
(defconst nnshimbun-kinsoku-eol-list
(funcall
(if (fboundp 'string-to-char-list)
'string-to-char-list
'string-to-list)
- "({[`¡Æ¡È¡Ê¡Ì¡Î¡Ð¡Ò¡Ô¡Ö¡Ø¡Ú¡ë¡ì¡í¡ø"))
+ "({[`
\e
$B!F!H!J!L!N!P!R!T!V!X!Z!k!l!m!x
\e
(B"))
(defun nnshimbun-fill-line ()
(forward-line 0)
(defun nnshimbun-fill-line ()
(forward-line 0)
@@
-502,7
+501,7
@@
(goto-char (point-min))
(let (headers)
(while (re-search-forward
(goto-char (point-min))
(let (headers)
(while (re-search-forward
- "^¢£<a href=\"\\(\\([0-9][0-9][0-9][0-9]\\)/past/\\([A-z]*[0-9]*\\)\\.html\\)\"> *"
+ "^
\e
$B"#
\e
(B<a href=\"\\(\\([0-9][0-9][0-9][0-9]\\)/past/\\([A-z]*[0-9]*\\)\\.html\\)\"> *"
nil t)
(let ((id (format "<%s%s%%%s>" (match-string 2) (match-string 3) group))
(url (match-string 1)))
nil t)
(let ((id (format "<%s%s%%%s>" (match-string 2) (match-string 3) group))
(url (match-string 1)))