Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-msg.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents ec9a17fef872
children d620409f5eb8
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
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))