Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-art.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
1160 (nnheader-narrow-to-headers) 1160 (nnheader-narrow-to-headers)
1161 (let ((buffer-read-only nil)) 1161 (let ((buffer-read-only nil))
1162 ;; Delete any old Date headers. 1162 ;; Delete any old Date headers.
1163 (if (re-search-forward date-regexp nil t) 1163 (if (re-search-forward date-regexp nil t)
1164 (progn 1164 (progn
1165 (setq bface (get-text-property (point-at-bol) 'face) 1165 (setq bface (get-text-property (gnus-point-at-bol) 'face)
1166 eface (get-text-property (1- (point-at-eol)) 1166 eface (get-text-property (1- (gnus-point-at-eol))
1167 'face)) 1167 'face))
1168 (message-remove-header date-regexp t) 1168 (message-remove-header date-regexp t)
1169 (beginning-of-line)) 1169 (beginning-of-line))
1170 (goto-char (point-max))) 1170 (goto-char (point-max)))
1171 (insert (article-make-date-line date type)) 1171 (insert (article-make-date-line date type))
1199 ;; Get the original date from the article. 1199 ;; Get the original date from the article.
1200 ((eq type 'original) 1200 ((eq type 'original)
1201 (concat "Date: " date "\n")) 1201 (concat "Date: " date "\n"))
1202 ;; Let the user define the format. 1202 ;; Let the user define the format.
1203 ((eq type 'user) 1203 ((eq type 'user)
1204 (format-time-string gnus-article-time-format 1204 (concat
1205 (ignore-errors 1205 (format-time-string gnus-article-time-format
1206 (gnus-encode-date 1206 (ignore-errors
1207 (timezone-make-date-arpa-standard 1207 (gnus-encode-date
1208 date nil "UT"))))) 1208 (timezone-make-date-arpa-standard
1209 date nil "UT"))))
1210 "\n"))
1209 ;; Do an X-Sent lapsed format. 1211 ;; Do an X-Sent lapsed format.
1210 ((eq type 'lapsed) 1212 ((eq type 'lapsed)
1211 ;; If the date is seriously mangled, the timezone functions are 1213 ;; If the date is seriously mangled, the timezone functions are
1212 ;; liable to bug out, so we ignore all errors. 1214 ;; liable to bug out, so we ignore all errors.
1213 (let* ((now (current-time)) 1215 (let* ((now (current-time))
1702 ["Hide citation" gnus-article-hide-citation t] 1704 ["Hide citation" gnus-article-hide-citation t]
1703 ["Treat overstrike" gnus-article-treat-overstrike t] 1705 ["Treat overstrike" gnus-article-treat-overstrike t]
1704 ["Remove carriage return" gnus-article-remove-cr t] 1706 ["Remove carriage return" gnus-article-remove-cr t]
1705 ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t])) 1707 ["Remove quoted-unreadable" gnus-article-de-quoted-unreadable t]))
1706 1708
1707 (when (boundp 'gnus-summary-article-menu) 1709 (when nil
1708 (define-key gnus-article-mode-map [menu-bar commands] 1710 (when (boundp 'gnus-summary-article-menu)
1709 (cons "Commands" gnus-summary-article-menu))) 1711 (define-key gnus-article-mode-map [menu-bar commands]
1712 (cons "Commands" gnus-summary-article-menu))))
1710 1713
1711 (when (boundp 'gnus-summary-post-menu) 1714 (when (boundp 'gnus-summary-post-menu)
1712 (define-key gnus-article-mode-map [menu-bar post] 1715 (define-key gnus-article-mode-map [menu-bar post]
1713 (cons "Post" gnus-summary-post-menu))) 1716 (cons "Post" gnus-summary-post-menu)))
1714 1717