Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus.el @ 163:0132846995bd r20-3b8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b8
author cvs
date Mon, 13 Aug 2007 09:43:35 +0200
parents 43dd3413c7c7
children 85ec50267440
comparison
equal deleted inserted replaced
162:4de2936b4e77 163:0132846995bd
224 (defgroup gnus-exit nil 224 (defgroup gnus-exit nil
225 "Exiting gnus." 225 "Exiting gnus."
226 :link '(custom-manual "(gnus)Exiting Gnus") 226 :link '(custom-manual "(gnus)Exiting Gnus")
227 :group 'gnus) 227 :group 'gnus)
228 228
229 (defconst gnus-version-number "5.4.56" 229 (defconst gnus-version-number "5.4.59"
230 "Version number for this version of Gnus.") 230 "Version number for this version of Gnus.")
231 231
232 (defconst gnus-version (format "Gnus v%s" gnus-version-number) 232 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
233 "Version string for this version of Gnus.") 233 "Version string for this version of Gnus.")
234 234
645 (defun gnus-indent-rigidly (start end arg) 645 (defun gnus-indent-rigidly (start end arg)
646 "Indent rigidly using only spaces and no tabs." 646 "Indent rigidly using only spaces and no tabs."
647 (save-excursion 647 (save-excursion
648 (save-restriction 648 (save-restriction
649 (narrow-to-region start end) 649 (narrow-to-region start end)
650 (indent-rigidly start end arg) 650 (let ((tab-width 8))
651 ;; We translate tabs into spaces -- not everybody uses 651 (indent-rigidly start end arg)
652 ;; an 8-character tab. 652 ;; We translate tabs into spaces -- not everybody uses
653 (goto-char (point-min)) 653 ;; an 8-character tab.
654 (while (search-forward "\t" nil t) 654 (goto-char (point-min))
655 (replace-match " " t t))))) 655 (while (search-forward "\t" nil t)
656 (replace-match " " t t))))))
656 657
657 (defvar gnus-simple-splash nil) 658 (defvar gnus-simple-splash nil)
658 659
659 (defun gnus-group-startup-message (&optional x y) 660 (defun gnus-group-startup-message (&optional x y)
660 "Insert startup message in current buffer." 661 "Insert startup message in current buffer."
1905 1906
1906 ;;; 1907 ;;;
1907 ;;; Gnus Utility Functions 1908 ;;; Gnus Utility Functions
1908 ;;; 1909 ;;;
1909 1910
1911 (defmacro gnus-string-or (&rest strings)
1912 "Return the first element of STRINGS that is a non-blank string.
1913 STRINGS will be evaluated in normal `or' order."
1914 `(gnus-string-or-1 ',strings))
1915
1916 (defun gnus-string-or-1 (strings)
1917 (let (string)
1918 (while strings
1919 (setq string (eval (pop strings)))
1920 (if (string-match "^[ \t]*$" string)
1921 (setq string nil)
1922 (setq strings nil)))
1923 string))
1924
1910 ;; Add the current buffer to the list of buffers to be killed on exit. 1925 ;; Add the current buffer to the list of buffers to be killed on exit.
1911 (defun gnus-add-current-to-buffer-list () 1926 (defun gnus-add-current-to-buffer-list ()
1912 (or (memq (current-buffer) gnus-buffer-list) 1927 (or (memq (current-buffer) gnus-buffer-list)
1913 (push (current-buffer) gnus-buffer-list))) 1928 (push (current-buffer) gnus-buffer-list)))
1914 1929