Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 157:6b37e6ddd302 r20-3b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b5
author cvs
date Mon, 13 Aug 2007 09:40:41 +0200
parents 1856695b1fa9
children 0132846995bd
comparison
equal deleted inserted replaced
156:60baf0b43294 157:6b37e6ddd302
535 (format " %d.%d" emacs-major-version emacs-minor-version) 535 (format " %d.%d" emacs-major-version emacs-minor-version)
536 (if (match-beginning 3) 536 (if (match-beginning 3)
537 (substring emacs-version 537 (substring emacs-version
538 (match-beginning 3) 538 (match-beginning 3)
539 (match-end 3)) 539 (match-end 3))
540 ""))) 540 "")
541 (if (boundp 'xemacs-codename)
542 (concat " - \"" xemacs-codename "\""))))
541 (t emacs-version)))) 543 (t emacs-version))))
542 544
543 ;; Written by "Mr. Per Persson" <pp@gnu.ai.mit.edu>. 545 ;; Written by "Mr. Per Persson" <pp@gnu.ai.mit.edu>.
544 (defun gnus-inews-insert-mime-headers () 546 (defun gnus-inews-insert-mime-headers ()
545 (goto-char (point-min)) 547 (goto-char (point-min))