;;; Code:
(defvar gnus-mouse-2 [mouse-2])
-(defvar gnus-easymenu 'easymenu)
-;; We do not byte-compile this file, because error messages are such a
-;; bore.
+(defalias 'gnus-make-overlay 'make-overlay)
+(defalias 'gnus-overlay-put 'overlay-put)
+(defalias 'gnus-move-overlay 'move-overlay)
+
+(eval-and-compile
+ (autoload 'gnus-xmas-define "gnus-xmas")
+ (autoload 'gnus-xmas-redefine "gnus-xmas"))
+
+;;; Mule functions.
+
+(defun gnus-mule-truncate-string (str width)
+ (let ((w (string-width str))
+ (col 0) (idx 0) (p-idx 0) chr)
+ (if (<= w width)
+ str
+ (while (< col width)
+ (setq chr (aref str idx)
+ col (+ col (char-width chr))
+ p-idx idx
+ idx (+ idx (char-bytes chr))
+ ))
+ (substring str 0 (if (= col width)
+ idx
+ p-idx)))))
+
+(defun gnus-mule-cite-add-face (number prefix face)
+ ;; At line NUMBER, ignore PREFIX and add FACE to the rest of the line.
+ (if face
+ (let ((inhibit-point-motion-hooks t)
+ from to)
+ (goto-line number)
+ (if (boundp 'MULE)
+ (forward-char (chars-in-string prefix))
+ (forward-char (length prefix)))
+ (skip-chars-forward " \t")
+ (setq from (point))
+ (end-of-line 1)
+ (skip-chars-backward " \t")
+ (setq to (point))
+ (if (< from to)
+ (gnus-overlay-put (gnus-make-overlay from to) 'face face)))))
+
+(defun gnus-mule-max-width-function (el max-width)
+ (` (let* ((val (eval (, el)))
+ (valstr (if (numberp val)
+ (int-to-string val) val)))
+ (if (> (length valstr) (, max-width))
+ (truncate-string valstr (, max-width))
+ valstr))))
+
(eval
- '(cond
- ((string-match "XEmacs\\|Lucid" emacs-version)
- ;; XEmacs definitions.
-
- (setq gnus-mouse-2 [button2])
- (setq gnus-easymenu 'auc-menu)
-
- (or (memq 'underline (list-faces))
- (make-face 'underline))
- (or (face-differs-from-default-p 'underline)
- (set-face-underline-p 'underline t))
- (or (fboundp 'set-text-properties)
- (defun set-text-properties (start end props &optional buffer)
- (if props
- (put-text-property start end (car props) (cadr props) buffer)
- (remove-text-properties start end ()))))
-
- (or (fboundp 'make-overlay) (fset 'make-overlay 'make-extent))
- (or (fboundp 'overlay-put) (fset 'overlay-put 'set-extent-property))
- (or (fboundp 'move-overlay)
- (defun move-overlay (extent start end &optional buffer)
- (set-extent-endpoints extent start end)))
- (or (boundp 'standard-display-table) (setq standard-display-table nil))
-
- (if (not gnus-visual)
+ '(progn
+ (if (string-match "XEmacs\\|Lucid" emacs-version)
()
- (setq gnus-group-mode-hook
- (cons
- (lambda ()
- (easy-menu-add gnus-group-reading-menu)
- (easy-menu-add gnus-group-group-menu)
- (easy-menu-add gnus-group-post-menu)
- (easy-menu-add gnus-group-misc-menu)
- (gnus-install-mouse-tracker))
- gnus-group-mode-hook))
- (setq gnus-summary-mode-hook
- (cons
- (lambda ()
- (easy-menu-add gnus-summary-mark-menu)
- (easy-menu-add gnus-summary-move-menu)
- (easy-menu-add gnus-summary-article-menu)
- (easy-menu-add gnus-summary-thread-menu)
- (easy-menu-add gnus-summary-misc-menu)
- (easy-menu-add gnus-summary-post-menu)
- (easy-menu-add gnus-summary-kill-menu)
- (gnus-install-mouse-tracker))
- gnus-summary-mode-hook))
- (setq gnus-article-mode-hook
- (cons
- (lambda ()
- (easy-menu-add gnus-article-article-menu)
- (easy-menu-add gnus-article-treatment-menu))
- gnus-article-mode-hook)))
-
- (defun gnus-install-mouse-tracker ()
- (require 'mode-motion)
- (setq mode-motion-hook 'mode-motion-highlight-line)))
-
- ((and (not (string-match "28.9" emacs-version))
- (not (string-match "29" emacs-version)))
- (setq gnus-hidden-properties '(invisible t)))
+ ;; Added by Per Abrahamsen <amanda@iesd.auc.dk>.
+ (defvar gnus-display-type
+ (condition-case nil
+ (let ((display-resource (x-get-resource ".displayType" "DisplayType")))
+ (cond (display-resource (intern (downcase display-resource)))
+ ((x-display-color-p) 'color)
+ ((x-display-grayscale-p) 'grayscale)
+ (t 'mono)))
+ (error 'mono))
+ "A symbol indicating the display Emacs is running under.
+The symbol should be one of `color', `grayscale' or `mono'. If Emacs
+guesses this display attribute wrongly, either set this variable in
+your `~/.emacs' or set the resource `Emacs.displayType' in your
+`~/.Xdefaults'. See also `gnus-background-mode'.
+
+This is a meta-variable that will affect what default values other
+variables get. You would normally not change this variable, but
+pounce directly on the real variables themselves.")
+
+ (defvar gnus-background-mode
+ (condition-case nil
+ (let ((bg-resource (x-get-resource ".backgroundMode"
+ "BackgroundMode"))
+ (params (frame-parameters)))
+ (cond (bg-resource (intern (downcase bg-resource)))
+ ((and (cdr (assq 'background-color params))
+ (< (apply '+ (x-color-values
+ (cdr (assq 'background-color params))))
+ (/ (apply '+ (x-color-values "white")) 3)))
+ 'dark)
+ (t 'light)))
+ (error 'light))
+ "A symbol indicating the Emacs background brightness.
+The symbol should be one of `light' or `dark'.
+If Emacs guesses this frame attribute wrongly, either set this variable in
+your `~/.emacs' or set the resource `Emacs.backgroundMode' in your
+`~/.Xdefaults'.
+See also `gnus-display-type'.
+
+This is a meta-variable that will affect what default values other
+variables get. You would normally not change this variable, but
+pounce directly on the real variables themselves."))
+
+ (cond
+ ((string-match "XEmacs\\|Lucid" emacs-version)
+ (gnus-xmas-define))
+
+ ((and (not (string-match "28.9" emacs-version))
+ (not (string-match "29" emacs-version)))
+ ;; Remove the `intangible' prop.
+ (let ((props (and (boundp 'gnus-hidden-properties)
+ gnus-hidden-properties)))
+ (while (and props (not (eq (car (cdr props)) 'intangible)))
+ (setq props (cdr props)))
+ (and props (setcdr props (cdr (cdr (cdr props))))))
+ (or (fboundp 'buffer-substring-no-properties)
+ (defun buffer-substring-no-properties (beg end)
+ (format "%s" (buffer-substring beg end)))))
- ))
+ ((boundp 'MULE)
+ (provide 'gnusutil))
+ )))
(eval-and-compile
(cond
((not window-system)
(defun gnus-dummy-func (&rest args))
- (let ((funcs '(mouse-set-point make-face set-face-foreground
- set-face-background)))
+ (let ((funcs '(mouse-set-point set-face-foreground
+ set-face-background x-popup-menu)))
(while funcs
(or (fboundp (car funcs))
(fset (car funcs) 'gnus-dummy-func))
(defun gnus-ems-redefine ()
(cond
((string-match "XEmacs\\|Lucid" emacs-version)
- ;; XEmacs definitions.
- (fset 'gnus-set-mouse-face (lambda (string) string))
-
- (defun gnus-summary-make-display-table ()
- (let* ((table (window-display-table)))
- (and (not table)
- (setq table (make-vector 261 ())))
- (let ((i 32))
- (while (>= (setq i (1- i)) 0)
- (aset table i [??])))
- (aset table ?\n nil)
- (let ((i 160))
- (while (>= (setq i (1- i)) 127)
- (aset table i [??])))
- (setq gnus-summary-display-table table)))
+ (gnus-xmas-redefine))
- )
+ ((boundp 'MULE)
+ ;; Mule definitions
+ (or (fboundp 'truncate-string)
+ (fset 'truncate-string 'gnus-mule-truncate-string))
+ (defalias 'gnus-truncate-string 'truncate-string)
+ (fset 'gnus-summary-make-display-table (lambda () nil))
+ (fset 'gnus-cite-add-face 'gnus-mule-cite-add-face)
+ (fset 'gnus-max-width-function 'gnus-mule-max-width-function)
+
+ (if (boundp 'gnus-check-before-posting)
+ (setq gnus-check-before-posting
+ (delq 'long-lines
+ (delq 'control-chars gnus-check-before-posting))))
+ )
))
(provide 'gnus-ems)
;; Local Variables:
-;; byte-compile-warnings: nil
+;; byte-compile-warnings: '(redefine callargs)
;; End:
;;; gnus-ems.el ends here
projects / gnus / blobdiff