Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

*** empty log message ***

  • Loading branch information...
commit 8eb23a8ee7d38cf2afd8c28172a77670530333c8 1 parent 349d090
Lars Ingebrigtsen authored
50  lisp/ChangeLog
... ...
@@ -1,3 +1,53 @@
  1
+Wed Dec  2 01:43:48 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  2
+
  3
+	* gnus.el: Pterodactyl Gnus v0.59 is released.
  4
+
  5
+1998-12-02 01:38:31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  6
+
  7
+	* mml.el (mml-insert-mime-headers): Beep at multiple charsets.
  8
+
  9
+	* gnus-art.el (gnus-mime-copy-part): Set buffer-file-name.
  10
+
  11
+1998-11-30  Hrvoje Niksic  <hniksic@srce.hr>
  12
+
  13
+	* mml.el (mml-generate-mime-1): Handle unquoting end-tags.
  14
+
  15
+1998-12-02 00:15:30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  16
+
  17
+	* mm-decode.el (mm-all-images-fit): New variable.
  18
+	(mm-image-fit-p): Use it.
  19
+
  20
+	* gnus-art.el (gnus-mime-display-single): Use it.
  21
+	(gnus-mime-internalize-part): New command and keystroke.
  22
+
  23
+	* mm-decode.el (mm-user-automatic-external-display): New
  24
+	variable. 
  25
+	(mm-automatic-external-display-p): New function.
  26
+
  27
+	* gnus-picon.el (gnus-picons-xbm-face): Default to sensible
  28
+	colors. 
  29
+
  30
+1998-12-01 23:52:05  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  31
+
  32
+	* gnus-sum.el (gnus-summary-repair-multipart): Reselect article. 
  33
+
  34
+	* gnus-art.el (gnus-with-article): Work in the original article
  35
+	buffer. 
  36
+	(gnus-with-article): Work in read-only groups.
  37
+
  38
+Tue Dec  1 00:15:36 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
  39
+
  40
+	* mm-bodies.el (mm-decode-string): Return original string if not
  41
+	decode.
  42
+
  43
+Mon Nov 30 23:38:02 1998  Shenghuo ZHU  <zsh@cs.rochester.edu>
  44
+
  45
+	* mm-uu.el (mm-uu-dissect): Use mm-make-handle.
  46
+
  47
+1998-12-01 01:53:49  François Pinard  <pinard@iro.umontreal.ca>
  48
+
  49
+	* nndoc.el (nndoc-mime-parts-type-p): Do related.
  50
+
1 51
 Tue Dec  1 00:46:20 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
2 52
 
3 53
 	* gnus.el: Pterodactyl Gnus v0.58 is released.
88  lisp/gnus-art.el
@@ -637,33 +637,28 @@ Initialized from `text-mode-syntax-table.")
637 637
      b 'intangible (cddr (memq 'intangible props)))))
638 638
 
639 639
 (defmacro gnus-with-article (article &rest forms)
640  
-  "Select ARTICLE, copy the contents of the original article buffer to a new buffer, and then perform FORMS there.
  640
+  "Select ARTICLE and perform FORMS in the original article buffer.
641 641
 Then replace the article with the result."
642 642
   `(progn
643 643
      ;; We don't want the article to be marked as read.
644 644
      (let (gnus-mark-article-hook)
645 645
        (gnus-summary-select-article t t nil ,article))
646 646
      (set-buffer gnus-original-article-buffer)
647  
-     (let ((buf (format "%s" (buffer-string))))
648  
-       (with-temp-buffer
649  
-	 (insert buf)
650  
-	 ,@forms
651  
-	 (unless (gnus-request-replace-article
652  
-		  ,article (car gnus-article-current)
653  
-		  (current-buffer) t)
654  
-	   (error "Couldn't replace article"))
655  
-	 ;; The cache and backlog have to be flushed somewhat.
656  
-	 (when gnus-keep-backlog
657  
-	   (gnus-backlog-remove-article
658  
-	    (car gnus-article-current) (cdr gnus-article-current)))
659  
-	 ;; Flush original article as well.
660  
-	 (save-excursion
661  
-	   (when (get-buffer gnus-original-article-buffer)
662  
-	     (set-buffer gnus-original-article-buffer)
663  
-	     (setq gnus-original-article nil)))
664  
-	 (when gnus-use-cache
665  
-	   (gnus-cache-update-article
666  
-	    (car gnus-article-current) (cdr gnus-article-current)))))))
  647
+     ,@forms
  648
+     (if (not (gnus-check-backend-function
  649
+	       'request-replace-article (car gnus-article-current)))
  650
+	 (gnus-message 5 "Read-only group; not replacing")
  651
+       (unless (gnus-request-replace-article
  652
+		,article (car gnus-article-current)
  653
+		(current-buffer) t)
  654
+	 (error "Couldn't replace article")))
  655
+     ;; The cache and backlog have to be flushed somewhat.
  656
+     (when gnus-keep-backlog
  657
+       (gnus-backlog-remove-article
  658
+	(car gnus-article-current) (cdr gnus-article-current)))
  659
+     (when gnus-use-cache
  660
+       (gnus-cache-update-article
  661
+	(car gnus-article-current) (cdr gnus-article-current)))))
667 662
 
668 663
 (put 'gnus-with-article 'lisp-indent-function 1)
669 664
 (put 'gnus-with-article 'edebug-form-spec '(form body))
@@ -2287,11 +2282,11 @@ If ALL-HEADERS is non-nil, no headers are hidden."
2287 2282
 
2288 2283
 (defvar gnus-mime-button-commands
2289 2284
   '((gnus-article-press-button	"\r"	"Toggle Display")
2290  
-    ;(gnus-mime-view-part	"\M-\r"	"View Interactively...")
2291 2285
     (gnus-mime-view-part	"v"	"View Interactively...")
2292 2286
     (gnus-mime-save-part	"o"	"Save...")
2293 2287
     (gnus-mime-copy-part	"c"	"View As Text, In Other Buffer")
2294 2288
     (gnus-mime-inline-part	"i"	"View As Text, In This Buffer")
  2289
+    (gnus-mime-internalize-part	"E"	"View Internally")
2295 2290
     (gnus-mime-externalize-part	"e"	"View Externally")
2296 2291
     (gnus-mime-pipe-part	"|"	"Pipe To Command...")))
2297 2292
 
@@ -2355,8 +2350,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
2355 2350
   (interactive)
2356 2351
   (gnus-article-check-buffer)
2357 2352
   (let ((data (get-text-property (point) 'gnus-data))
2358  
-	;(url-standalone-mode (not gnus-plugged))
2359  
-	)
  2353
+	(url-standalone-mode (not gnus-plugged)))
2360 2354
     (mm-interactively-view-part data)))
2361 2355
 
2362 2356
 (defun gnus-mime-copy-part (&optional handle)
@@ -2364,17 +2358,22 @@ If ALL-HEADERS is non-nil, no headers are hidden."
2364 2358
   (interactive)
2365 2359
   (gnus-article-check-buffer)
2366 2360
   (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
2367  
-	 (contents (mm-get-part handle))
2368  
-	 (buffer (generate-new-buffer
2369  
-		       (file-name-nondirectory
2370  
-			(or
2371  
-			 (mail-content-type-get (mm-handle-type handle) 'name)
2372  
-			 (mail-content-type-get (mm-handle-type handle)
2373  
-						'filename)
2374  
-			 "*decoded*")))))
  2361
+	 (contents (mm-get-part handle))|
  2362
+	 (base (file-name-nondirectory
  2363
+		(or
  2364
+		 (mail-content-type-get (mm-handle-type handle) 'name)
  2365
+		 (mail-content-type-get (mm-handle-type handle)
  2366
+					'filename)
  2367
+		 "*decoded*")))
  2368
+	 (buffer (generate-new-buffer base)))
2375 2369
     (switch-to-buffer buffer)
2376 2370
     (insert contents)
2377  
-    (normal-mode)
  2371
+    ;; We do it this way to make `normal-mode' set the appropriate mode.
  2372
+    (unwind-protect
  2373
+	(progn
  2374
+	  (setq buffer-file-name (expand-file-name base))
  2375
+	  (normal-mode))
  2376
+      (setq buffer-file-name nil))
2378 2377
     (goto-char (point-min))))
2379 2378
 
2380 2379
 (defun gnus-mime-inline-part (&optional charset)
@@ -2383,7 +2382,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
2383 2382
   (gnus-article-check-buffer)
2384 2383
   (let* ((data (get-text-property (point) 'gnus-data))
2385 2384
 	 contents
2386  
-	 ;(url-standalone-mode (not gnus-plugged))
  2385
+	 (url-standalone-mode (not gnus-plugged))
2387 2386
 	 (b (point))
2388 2387
 	 buffer-read-only)
2389 2388
     (if (mm-handle-undisplayer data)
@@ -2398,12 +2397,26 @@ If ALL-HEADERS is non-nil, no headers are hidden."
2398 2397
       (goto-char b))))
2399 2398
 
2400 2399
 (defun gnus-mime-externalize-part (&optional handle)
2401  
-  "Insert the MIME part under point into the current buffer."
  2400
+  "View the MIME part under point with an external viewer."
2402 2401
   (interactive)
2403 2402
   (gnus-article-check-buffer)
2404 2403
   (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
2405  
-	 ;(url-standalone-mode (not gnus-plugged))
  2404
+	 (url-standalone-mode (not gnus-plugged))
2406 2405
 	 (mm-user-display-methods nil)
  2406
+	 (mm-all-images-fit t)
  2407
+	 (rfc2047-default-charset gnus-newsgroup-default-charset)
  2408
+	 (mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced))
  2409
+    (if (mm-handle-undisplayer handle)
  2410
+	(mm-remove-part handle)
  2411
+      (mm-display-part handle))))
  2412
+
  2413
+(defun gnus-mime-internalize-part (&optional handle)
  2414
+  "View the MIME part under point with an internal viewer."
  2415
+  (interactive)
  2416
+  (gnus-article-check-buffer)
  2417
+  (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
  2418
+	 (url-standalone-mode (not gnus-plugged))
  2419
+	 (mm-user-display-methods '(".*"))
2407 2420
 	 (rfc2047-default-charset gnus-newsgroup-default-charset)
2408 2421
 	 (mm-charset-iso-8859-1-forced gnus-newsgroup-iso-8859-1-forced))
2409 2422
     (if (mm-handle-undisplayer handle)
@@ -2594,7 +2607,8 @@ If ALL-HEADERS is non-nil, no headers are hidden."
2594 2607
 	  (when (string-match (pop ignored) type)
2595 2608
 	    (throw 'ignored nil)))
2596 2609
 	(if (and (mm-automatic-display-p type)
2597  
-		 (mm-inlinable-part-p type)
  2610
+		 (or (mm-inlinable-part-p type)
  2611
+		     (mm-automatic-external-display-p type))
2598 2612
 		 (setq not-attachment
2599 2613
 		       (or (not (mm-handle-disposition handle))
2600 2614
 			   (equal (car (mm-handle-disposition handle))
8  lisp/gnus-picon.el
@@ -144,8 +144,12 @@ please tell me so that we can list it."
144 144
 		 (string))
145 145
   :group 'picons)
146 146
 
147  
-(defface gnus-picons-xbm-face '((t (:foreground "black" :background "white")))
148  
-  "Face to show X face"
  147
+(defface gnus-picons-xbm-face
  148
+  '((((background dark))
  149
+     (:foreground "green" :background "black"))
  150
+    (t
  151
+     (:foreground "black" :background "blue")))
  152
+  "Face to show xbm picons in."
149 153
   :group 'picons)
150 154
 
151 155
 ;;; Internal variables:
4  lisp/gnus-sum.el
@@ -9213,7 +9213,9 @@ save those articles instead."
9213 9213
 	(insert (format "Content-Type: multipart/mixed; boundary=\"%s\"\n"
9214 9214
 			separator))
9215 9215
 	(insert "Mime-Version: 1.0\n")
9216  
-	(widen)))))
  9216
+	(widen))))
  9217
+  (let (gnus-mark-article-hook)
  9218
+    (gnus-summary-select-article t t nil article)))
9217 9219
 
9218 9220
 (defun gnus-summary-toggle-display-buttonized ()
9219 9221
   "Toggle the buttonizing of the article buffer."
2  lisp/gnus.el
@@ -254,7 +254,7 @@ is restarted, and sometimes reloaded."
254 254
   :link '(custom-manual "(gnus)Exiting Gnus")
255 255
   :group 'gnus)
256 256
 
257  
-(defconst gnus-version-number "0.58"
  257
+(defconst gnus-version-number "0.59"
258 258
   "Version number for this version of Gnus.")
259 259
 
260 260
 (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
18  lisp/mm-bodies.el
@@ -172,14 +172,16 @@ The characters in CHARSET should then be decoded."
172 172
 (defun mm-decode-string (string charset)
173 173
   "Decode STRING with CHARSET."
174 174
   (setq charset (or charset rfc2047-default-charset))
175  
-  (when (featurep 'mule)
176  
-    (let (mule-charset)
177  
-      (when (and charset
178  
-		 (setq mule-charset (mm-charset-to-coding-system charset))
179  
-		 enable-multibyte-characters
180  
-		 (or (not (eq mule-charset 'ascii))
181  
-		     (setq mule-charset rfc2047-default-charset)))
182  
-	(mm-decode-coding-string string mule-charset)))))
  175
+  (or
  176
+   (when (featurep 'mule)
  177
+     (let (mule-charset)
  178
+       (when (and charset
  179
+		  (setq mule-charset (mm-charset-to-coding-system charset))
  180
+		  enable-multibyte-characters
  181
+		  (or (not (eq mule-charset 'ascii))
  182
+		      (setq mule-charset rfc2047-default-charset)))
  183
+	 (mm-decode-coding-string string mule-charset))))
  184
+   string))
183 185
 
184 186
 (provide 'mm-bodies)
185 187
 
21  lisp/mm-decode.el
@@ -91,6 +91,9 @@
91 91
   '("text/plain" "text/enriched" "text/richtext" "text/html" 
92 92
     "image/.*" "message/delivery-status" "multipart/.*"))
93 93
 
  94
+(defvar mm-user-automatic-external-display nil
  95
+  "List of MIME type regexps that will be displayed externally automatically.")
  96
+
94 97
 (defvar mm-alternative-precedence
95 98
   '("image/jpeg" "image/gif" "text/html" "text/enriched"
96 99
     "text/richtext" "text/plain")
@@ -99,6 +102,9 @@
99 102
 (defvar mm-tmp-directory "/tmp/"
100 103
   "Where mm will store its temporary files.")
101 104
 
  105
+(defvar mm-all-images-fit nil
  106
+  "If non-nil, then all images fit in the buffer.")
  107
+
102 108
 ;;; Internal variables.
103 109
 
104 110
 (defvar mm-dissection-list nil)
@@ -399,6 +405,16 @@ external if displayed external."
399 405
 	      methods nil)))
400 406
     result))
401 407
 
  408
+(defun mm-automatic-external-display-p (type)
  409
+  "Return the user-defined method for TYPE."
  410
+  (let ((methods mm-user-automatic-external-display)
  411
+	method result)
  412
+    (while (setq method (pop methods))
  413
+      (when (string-match method type)
  414
+	(setq result t
  415
+	      methods nil)))
  416
+    result))
  417
+
402 418
 (defun add-mime-display-method (type method)
403 419
   "Make parts of TYPE be displayed with METHOD.
404 420
 This overrides entries in the mailcap file."
@@ -541,8 +557,9 @@ This overrides entries in the mailcap file."
541 557
 (defun mm-image-fit-p (handle)
542 558
   "Say whether the image in HANDLE will fit the current window."
543 559
   (let ((image (mm-get-image handle)))
544  
-    (and (< (glyph-width image) (window-pixel-width))
545  
- 	 (< (glyph-height image) (window-pixel-height)))))
  560
+    (or mm-all-images-fit
  561
+	(and (< (glyph-width image) (window-pixel-width))
  562
+	     (< (glyph-height image) (window-pixel-height))))))
546 563
 
547 564
 (provide 'mm-decode)
548 565
 
28  lisp/mm-uu.el
@@ -2,7 +2,7 @@
2 2
 ;; Copyright (c) 1998 by Shenghuo Zhu <zsh@cs.rochester.edu>
3 3
 
4 4
 ;; Author: Shenghuo Zhu <zsh@cs.rochester.edu>
5  
-;; $Revision: 5.3 $
  5
+;; $Revision: 5.4 $
6 6
 ;; Keywords: news postscript uudecode binhex shar
7 7
   
8 8
 ;; This file is not part of GNU Emacs, but the same permissions
@@ -118,16 +118,16 @@
118 118
 			    (error nil))))
119 119
 	    (if (> start-char text-start)
120 120
 		(push
121  
-		 (list (mm-uu-copy-to-buffer text-start start-char) 
122  
-		       text-plain-type cte nil nil nil) 
  121
+		 (mm-make-handle (mm-uu-copy-to-buffer text-start start-char) 
  122
+		       text-plain-type cte) 
123 123
 		 result))
124 124
 	    (push 
125 125
 	     (cond
126 126
 	      ((eq type 'postscript)
127  
-	       (list (mm-uu-copy-to-buffer start-char end-char) 
128  
-		     '("application/postscript") nil nil nil nil))
  127
+	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
  128
+		     '("application/postscript")))
129 129
 	      ((eq type 'uu)
130  
-	       (list (mm-uu-copy-to-buffer start-char end-char) 
  130
+	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
131 131
 		     (list (or (and file-name
132 132
 				    (string-match "\\.[^\\.]+$" file-name) 
133 133
 				    (mailcap-extension-to-mime 
@@ -135,10 +135,9 @@
135 135
 			       "application/octet-stream"))
136 136
 		     mm-uu-decode-function nil 
137 137
 		     (if (and file-name (not (equal file-name "")))
138  
-			 (list "attachment" (cons 'filename file-name)))
139  
-		   file-name))
  138
+			 (list "attachment" (cons 'filename file-name)))))
140 139
 	      ((eq type 'binhex)
141  
-	       (list (mm-uu-copy-to-buffer start-char end-char) 
  140
+	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
142 141
 		     (list (or (and file-name
143 142
 				    (string-match "\\.[^\\.]+$" file-name) 
144 143
 				    (mailcap-extension-to-mime 
@@ -146,18 +145,17 @@
146 145
 			       "application/octet-stream"))
147 146
 		     mm-uu-binhex-decode-function nil 
148 147
 		     (if (and file-name (not (equal file-name "")))
149  
-			 (list "attachment" (cons 'filename file-name)))
150  
-		     file-name))
  148
+			 (list "attachment" (cons 'filename file-name)))))
151 149
 	      ((eq type 'shar)
152  
-	       (list (mm-uu-copy-to-buffer start-char end-char) 
153  
-		     '("application/x-shar") nil nil nil nil))) 
  150
+	       (mm-make-handle (mm-uu-copy-to-buffer start-char end-char) 
  151
+		     '("application/x-shar")))) 
154 152
 	     result)
155 153
 	    (setq text-start end-char))))
156 154
       (when result
157 155
 	(if (> (point-max) (1+ text-start))
158 156
 	    (push
159  
-	     (list (mm-uu-copy-to-buffer text-start (point-max)) 
160  
-		   text-plain-type cte nil nil nil) 
  157
+	     (mm-make-handle (mm-uu-copy-to-buffer text-start (point-max)) 
  158
+		   text-plain-type cte) 
161 159
 	     result))
162 160
 	(setq result (cons "multipart/mixed" (nreverse result))))
163 161
       result)))
7  lisp/mml.el
@@ -129,7 +129,7 @@
129 129
 (defun mml-generate-mime-1 (cont)
130 130
   (cond
131 131
    ((eq (car cont) 'part)
132  
-    (let (coded encoding charset filename type parameters)
  132
+    (let (coded encoding charset filename type)
133 133
       (setq type (or (cdr (assq 'type cont)) "text/plain"))
134 134
       (if (equal (car (split-string type "/")) "text")
135 135
 	  (with-temp-buffer
@@ -141,7 +141,7 @@
141 141
 		;; Remove quotes from quoted tags.
142 142
 		(goto-char (point-min))
143 143
 		(while (re-search-forward
144  
-			"<#!+\\(part\\|multipart\\|external\\)" nil t)
  144
+			"<#!+/?\\(part\\|multipart\\|external\\)" nil t)
145 145
 		  (delete-region (+ (match-beginning 0) 2)
146 146
 				 (+ (match-beginning 0) 3)))))
147 147
 	    (setq charset (mm-encode-body)
@@ -246,6 +246,9 @@
246 246
 		    (mml-parameter-string
247 247
 		     cont '(name access-type expiration size permission)))
248 248
 	      (not (equal type "text/plain")))
  249
+      (when (listp charset)
  250
+	(error
  251
+	 "Can't encode a part with several charsets.  Insert a <#part>."))
249 252
       (insert "Content-Type: " type)
250 253
       (when charset
251 254
 	(insert "; " (mail-header-encode-parameter
12  lisp/nndoc.el
@@ -452,18 +452,18 @@ from the document.")
452 452
 	(limit (search-forward "\n\n" nil t)))
453 453
     (goto-char (point-min))
454 454
     (when (and limit
455  
-		(re-search-forward
456  
-		 (concat "\
457  
-^Content-Type:[ \t]*multipart/[a-z]+ *;\\(.*;\\)*"
458  
-			 "[ \t\n]*[ \t]boundary=\"?[^\"\n]*[^\" \t\n]")
459  
-	   limit t))
  455
+	       (re-search-forward
  456
+		(concat "\
  457
+^Content-Type:[ \t]*multipart/[a-z]+ *;\\(\\(\n[ \t]\\)?.*;\\)*"
  458
+			"\\(\n[ \t]\\)?[ \t]*boundary=\"?[^\"\n]*[^\" \t\n]")
  459
+		limit t))
460 460
       t)))
461 461
 
462 462
 (defun nndoc-transform-mime-parts (article)
463 463
   (let* ((entry (cdr (assq article nndoc-dissection-alist)))
464 464
 	 (headers (nth 5 entry)))
465 465
     (when headers
466  
-    (goto-char (point-min))
  466
+      (goto-char (point-min))
467 467
       (insert headers))))
468 468
 
469 469
 (defun nndoc-generate-mime-parts-head (article)
4  texi/ChangeLog
... ...
@@ -1,3 +1,7 @@
  1
+1998-12-02 01:04:22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
  2
+
  3
+	* gnus.texi (Emacsen): Addition.
  4
+
1 5
 1998-12-01 00:27:04  Lars Magne Ingebrigtsen  <larsi@gnus.org>
2 6
 
3 7
 	* emacs-mime.texi (rfc2045): New.
4  texi/emacs-mime.texi
@@ -276,8 +276,8 @@ Decode the encoded words in the string and return the result.
276 276
 @end table
277 277
 
278 278
 Currently, @code{mail-parse} is an abstraction over @code{ietf-drums},
279  
-@code{rfc2047} and @code{rfc2231}.  These are documented in the
280  
-subsequent sections.
  279
+@code{rfc2047}, @code{rfc2045} and @code{rfc2231}.  These are documented
  280
+in the subsequent sections.
281 281
 
282 282
 
283 283
 
13  texi/gnus.texi
... ...
@@ -1,7 +1,7 @@
1 1
 \input texinfo                  @c -*-texinfo-*-
2 2
 
3 3
 @setfilename gnus
4  
-@settitle Pterodactyl Gnus 0.58 Manual
  4
+@settitle Pterodactyl Gnus 0.59 Manual
5 5
 @synindex fn cp
6 6
 @synindex vr cp
7 7
 @synindex pg cp
@@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions.
318 318
 @tex
319 319
 
320 320
 @titlepage
321  
-@title Pterodactyl Gnus 0.58 Manual
  321
+@title Pterodactyl Gnus 0.59 Manual
322 322
 
323 323
 @author by Lars Magne Ingebrigtsen
324 324
 @page
@@ -354,7 +354,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
354 354
 spool or your mbox file.  All at the same time, if you want to push your
355 355
 luck.
356 356
 
357  
-This manual corresponds to Pterodactyl Gnus 0.58.
  357
+This manual corresponds to Pterodactyl Gnus 0.59.
358 358
 
359 359
 @end ifinfo
360 360
 
@@ -16208,15 +16208,16 @@ Gnus should work on :
16208 16208
 @itemize @bullet
16209 16209
 
16210 16210
 @item
16211  
-Emacs 20.2 and up.
  16211
+Emacs 20.3 and up.
16212 16212
 
16213 16213
 @item
16214 16214
 XEmacs 20.4 and up.
16215 16215
 
16216 16216
 @end itemize
16217 16217
 
16218  
-Gnus will absolutely not work on any Emacsen older than that.  Not
16219  
-reliably, at least.
  16218
+This Gnus version will absolutely not work on any Emacsen older than
  16219
+that.  Not reliably, at least.  Older versions of Gnus may work on older 
  16220
+Emacs versions.
16220 16221
 
16221 16222
 There are some vague differences between Gnus on the various
16222 16223
 platforms---XEmacs features more graphics (a logo and a toolbar)---but
6  texi/message.texi
... ...
@@ -1,7 +1,7 @@
1 1
 \input texinfo                  @c -*-texinfo-*-
2 2
 
3 3
 @setfilename message
4  
-@settitle Pterodactyl Message 0.58 Manual
  4
+@settitle Pterodactyl Message 0.59 Manual
5 5
 @synindex fn cp
6 6
 @synindex vr cp
7 7
 @synindex pg cp
@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
42 42
 @tex
43 43
 
44 44
 @titlepage
45  
-@title Pterodactyl Message 0.58 Manual
  45
+@title Pterodactyl Message 0.59 Manual
46 46
 
47 47
 @author by Lars Magne Ingebrigtsen
48 48
 @page
@@ -83,7 +83,7 @@ Message mode buffers.
83 83
 * Key Index::         List of Message mode keys.
84 84
 @end menu
85 85
 
86  
-This manual corresponds to Pterodactyl Message 0.58.  Message is
  86
+This manual corresponds to Pterodactyl Message 0.59.  Message is
87 87
 distributed with the Gnus distribution bearing the same version number
88 88
 as this manual.
89 89
 

0 notes on commit 8eb23a8

Please sign in to comment.
Something went wrong with that request. Please try again.