Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents 360340f9fd5f
children 48d667d6f17f
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
528 (cond 528 (cond
529 ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version) 529 ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
530 (concat "Emacs " (substring emacs-version 530 (concat "Emacs " (substring emacs-version
531 (match-beginning 1) 531 (match-beginning 1)
532 (match-end 1)))) 532 (match-end 1))))
533 ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)" emacs-version) 533 ((string-match "\\([A-Z]*[Mm][Aa][Cc][Ss]\\)[^(]*\\(\\((beta.*)\\|'\\)\\)?"
534 emacs-version)
534 (concat (substring emacs-version 535 (concat (substring emacs-version
535 (match-beginning 1) 536 (match-beginning 1)
536 (match-end 1)) 537 (match-end 1))
537 (format " %d.%d" emacs-major-version emacs-minor-version))) 538 (format " %d.%d" emacs-major-version emacs-minor-version)
539 (if (match-beginning 3)
540 (substring emacs-version
541 (match-beginning 3)
542 (match-end 3))
543 "")))
538 (t emacs-version)))) 544 (t emacs-version))))
539 545
540 ;; Written by "Mr. Per Persson" <pp@gnu.ai.mit.edu>. 546 ;; Written by "Mr. Per Persson" <pp@gnu.ai.mit.edu>.
541 (defun gnus-inews-insert-mime-headers () 547 (defun gnus-inews-insert-mime-headers ()
542 (goto-char (point-min)) 548 (goto-char (point-min))