From: yamaoka <yamaoka>
Date: Tue, 23 May 2000 01:09:24 +0000 (+0000)
Subject: Sync
X-Git-Tag: t-gnus-6_14-quimby-before-AC-changed-~57
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2b7499ef6d3689108fc8f425c0900b6e2f4ee5bd;p=elisp%2Fgnus.git-

Sync
with `t-gnus-6_14'.
---

diff --git a/ChangeLog b/ChangeLog
index c7a5d06..d1cd79d 100644
--- 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.
@@ -10,9 +19,9 @@
 
 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>
 
diff --git a/lisp/nnshimbun.el b/lisp/nnshimbun.el
index 849a1ea..c3b1709 100644
--- 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
@@ -433,8 +432,8 @@
 	  (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)))
@@ -451,15 +450,15 @@
    (if (fboundp 'string-to-char-list)
        'string-to-char-list
      'string-to-list) "\
-!)-_~}]:;',.?¡¢¡£¡¤¡¥¡¦¡§¡¨¡©¡ª¡«¡¬¡­¡®¡¯¡°¡±¡²¡³¡´¡µ¡¶¡·¡¸¡¹¡º¡»¡¼¡½¡¾¡¿¡À¡Á\
-¡Â¡Ã¡Ä¡Å¡Ç¡É¡Ë¡Í¡Ï¡Ñ¡Ó¡Õ¡×¡Ù¡Û¡ë¡ì¡í¡î¤¡¤£¤¥¤§¤©¤Ã¤ã¤å¤ç¤î¥¡¥£¥¥¥§¥©¥Ã¥ã¥å¥ç¥î¥õ¥ö"))
+!)-_~}]:;',.?$B!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?!@!A(B\
+$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(B"))
 
 (defconst nnshimbun-kinsoku-eol-list
   (funcall
    (if (fboundp 'string-to-char-list)
        'string-to-char-list
      'string-to-list)
-   "({[`¡Æ¡È¡Ê¡Ì¡Î¡Ð¡Ò¡Ô¡Ö¡Ø¡Ú¡ë¡ì¡í¡ø"))
+   "({[`$B!F!H!J!L!N!P!R!T!V!X!Z!k!l!m!x(B"))
 
 (defun nnshimbun-fill-line ()
   (forward-line 0)
@@ -502,7 +501,7 @@
 	(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\\)\"> *"
+		  "^$B"#(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)))