+Sun Apr 6 21:46:05 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Gnus v5.4.41 is released.
+
+Thu Apr 3 21:08:57 1997 Hrvoje Niksic <hniksic@srce.hr>
+
+ * gnus-xmas.el (gnus-xmas-summary-set-display-table): Don't change
+ the values that are non-nil in the default table.
+
+Sun Apr 6 20:58:38 1997 Kim-Minh Kaplan <kimminh.kaplan@utopia.eunet.fr>
+
+ * gnus-picon.el (gnus-picons-insert-face-if-exists): "." instead
+ of "".
+
+Sun Apr 6 20:19:49 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-group.el (gnus-group-sort-groups): Touch dribble.
+
+Sun Apr 6 19:28:19 1997 Stainless Steel Rat <ratinox@peorth.gweep.net>
+
+ * pop3.el (pop3-quit): New version.
+
+Fri Apr 4 21:46:34 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-art.el (gnus-page-broken): New variable.
+ (gnus-article-prepare): Use it.
+
+Fri Apr 4 05:08:00 1997 Gunnar Horrigmo <horrigmo@ikke.no>
+
+ * gnus-art.el (article-treat-overstrike): Search from beginning of
+ article.
+
+Thu Apr 3 15:16:05 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-art.el (gnus-article-hidden-text-p): Be more thorough.
+
+Thu Apr 3 12:23:44 1997 Per Abrahamsen <abraham@dina.kvl.dk>
+
+ * gnus-score.el: (gnus-score-default-duration): Accept nil in
+ :type.
+
+Thu Apr 3 05:49:56 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-sum.el (gnus-summary-next-group): Make sure buffer is alive
+ before switching to it.
+
+Wed Apr 2 12:39:15 1997 Steven L Baur <steve@altair.xemacs.org>
+
+ * gnus-util.el (gnus-kill-all-overlays): Force Gnus to use extents
+ even when overlays are available. (From a patch by MORIOKA
+ Tomohiko).
+
+Thu Apr 3 05:28:03 1997 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+
+ * gnus-topic.el (gnus-topic-goto-missing-group): Make sure topic
+ exists.
+
+ * gnus-srvr.el (gnus-browse-group-name): Remove text props.
+
+ * gnus-sum.el (gnus-summary-move-article): Enter into dribble.
+
Wed Apr 2 14:12:45 1997 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
* gnus.el: Gnus v5.4.40 is released.
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, faces
-;; Version: 1.65
+;; Version: 1.70
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
(mapcar (lambda (symbol)
(setq found (cons (list symbol 'custom-face) found)))
(face-list))
- (message "Creating customization buffer...")
(custom-buffer-create found))
(if (stringp symbol)
(setq symbol (intern symbol)))
OPTIONS should be an alist of the form ((SYMBOL WIDGET)...), where
SYMBOL is a customization option, and WIDGET is a widget for editing
that option."
+ (message "Creating customization buffer...")
(kill-buffer (get-buffer-create "*Customization*"))
(switch-to-buffer (get-buffer-create "*Customization*"))
(custom-mode)
(widget-insert "This is a customization buffer.
Push RET or click mouse-2 on the word ")
+ ;; (put-text-property 1 2 'start-open nil)
(widget-create 'info-link
:tag "help"
:help-echo "Read the online help."
"(custom)The Customization Buffer")
(widget-insert " for more information.\n\n")
(setq custom-options
- (mapcar (lambda (entry)
- (prog1
- (if (> (length options) 1)
- (widget-create (nth 1 entry)
+ (if (= (length options) 1)
+ (mapcar (lambda (entry)
+ (widget-create (nth 1 entry)
+ :custom-state 'unknown
+ :tag (custom-unlispify-tag-name
+ (nth 0 entry))
+ :value (nth 0 entry)))
+ options)
+ (let ((count 0)
+ (length (length options)))
+ (mapcar (lambda (entry)
+ (prog2
+ (message "Creating customization items %2d%%..."
+ (/ (* 100.0 count) length))
+ (widget-create (nth 1 entry)
:tag (custom-unlispify-tag-name
(nth 0 entry))
:value (nth 0 entry))
- ;; If there is only one entry, don't hide it!
- (widget-create (nth 1 entry)
- :custom-state 'unknown
- :tag (custom-unlispify-tag-name
- (nth 0 entry))
- :value (nth 0 entry)))
- (unless (eq (preceding-char) ?\n)
- (widget-insert "\n"))
- (widget-insert "\n")))
- options))
+ (setq count (1+ count))
+ (unless (eq (preceding-char) ?\n)
+ (widget-insert "\n"))
+ (widget-insert "\n")))
+ options))))
+ (unless (eq (preceding-char) ?\n)
+ (widget-insert "\n"))
+ (widget-insert "\n")
+ (message "Creating customization magic...")
(mapcar 'custom-magic-reset custom-options)
+ (message "Creating customization buttons...")
(widget-create 'push-button
:tag "Set"
:help-echo "Set all modifications for this session."
(when (memq 'down (event-modifiers event))
(read-event)))))
(widget-insert "\n")
+ (message "Creating customization setup...")
(widget-setup)
- (goto-char (point-min)))
+ (goto-char (point-min))
+ (message "Creating customization buffer...done"))
;;; Modification of Basic Widgets.
;;
(face-doc-string face))
:value-create 'custom-face-value-create
:action 'custom-face-action
+ :custom-form 'selected
:custom-set 'custom-face-set
:custom-save 'custom-face-save
:custom-reset-current 'custom-redraw
(widget-put widget
:buttons (cons child (widget-get widget :buttons))))))
+(define-widget 'custom-face-all 'editable-list
+ "An editable list of display specifications and attributes."
+ :entry-format "%i %d %v"
+ :insert-button-args '(:help-echo "Insert new display specification here.")
+ :append-button-args '(:help-echo "Append new display specification here.")
+ :delete-button-args '(:help-echo "Delete this display specification.")
+ :args '((group :format "%v" custom-display custom-face-edit)))
+
+(defconst custom-face-all (widget-convert 'custom-face-all)
+ "Converted version of the `custom-face-all' widget.")
+
+(define-widget 'custom-display-unselected 'item
+ "A display specification that doesn't match the selected display."
+ :match 'custom-display-unselected-match)
+
+(defun custom-display-unselected-match (widget value)
+ "Non-nil if VALUE is an unselected display specification."
+ (and (listp value)
+ (eq (length value) 2)
+ (not (custom-display-match-frame value (selected-frame)))))
+
+(define-widget 'custom-face-selected 'group
+ "Edit the attributes of the selected display in a face specification."
+ :args '((repeat :format ""
+ :inline t
+ (group custom-display-unselected sexp))
+ (group (sexp :format "") custom-face-edit)
+ (repeat :format ""
+ :inline t
+ sexp)))
+
+(defconst custom-face-selected (widget-convert 'custom-face-selected)
+ "Converted version of the `custom-face-selected' widget.")
+
(defun custom-face-value-create (widget)
;; Create a list of the display specifications.
(unless (eq (preceding-char) ?\n)
(insert "\n"))
(when (not (eq (widget-get widget :custom-state) 'hidden))
+ (message "Creating face editor...")
(custom-load-widget widget)
(let* ((symbol (widget-value widget))
+ (spec (or (get symbol 'saved-face)
+ (get symbol 'factory-face)
+ ;; Attempt to construct it.
+ (list (list t (custom-face-attributes-get
+ symbol (selected-frame))))))
+ (form (widget-get widget :custom-form))
+ (indent (widget-get widget :indent))
(edit (widget-create-child-and-convert
- widget 'editable-list
- :entry-format "%i %d %v"
- :value (or (get symbol 'saved-face)
- (get symbol 'factory-face))
- :insert-button-args '(:help-echo "\
-Insert new display specification here.")
- :append-button-args '(:help-echo "\
-Append new display specification here.")
- :delete-button-args '(:help-echo "\
-Delete this display specification.")
- '(group :format "%v"
- custom-display custom-face-edit))))
+ widget
+ (cond ((and (eq form 'selected)
+ (widget-apply custom-face-selected :match spec))
+ (when indent (insert-char ?\ indent))
+ 'custom-face-selected)
+ ((and (not (eq form 'lisp))
+ (widget-apply custom-face-all :match spec))
+ 'custom-face-all)
+ (t
+ (when indent (insert-char ?\ indent))
+ 'sexp))
+ :value spec)))
(custom-face-state-set widget)
- (widget-put widget :children (list edit)))))
+ (widget-put widget :children (list edit)))
+ (message "Creating face editor...done")))
(defvar custom-face-menu
- '(("Set" . custom-face-set)
+ '(("Edit Selected" . custom-face-edit-selected)
+ ("Edit All" . custom-face-edit-all)
+ ("Edit Lisp" . custom-face-edit-lisp)
+ ("Set" . custom-face-set)
("Save" . custom-face-save)
("Reset to Saved" . custom-face-reset-saved)
("Reset to Factory Setting" . custom-face-reset-factory))
lisp function taking the widget as an element which will be called
when the action is chosen.")
+(defun custom-face-edit-selected (widget)
+ "Edit selected attributes of the value of WIDGET."
+ (widget-put widget :custom-state 'unknown)
+ (widget-put widget :custom-form 'selected)
+ (custom-redraw widget))
+
+(defun custom-face-edit-all (widget)
+ "Edit all attributes of the value of WIDGET."
+ (widget-put widget :custom-state 'unknown)
+ (widget-put widget :custom-form 'all)
+ (custom-redraw widget))
+
+(defun custom-face-edit-lisp (widget)
+ "Edit the lisp representation of the value of WIDGET."
+ (widget-put widget :custom-state 'unknown)
+ (widget-put widget :custom-form 'lisp)
+ (custom-redraw widget))
+
(defun custom-face-state-set (widget)
"Set the state of WIDGET."
(let ((symbol (widget-value widget)))
:group 'customize)
(defface custom-group-tag-face-1 '((((class color)
- (background dark))
- (:foreground "pink" :underline t))
- (((class color)
- (background light))
- (:foreground "red" :underline t))
- (t (:underline t)))
+ (background dark))
+ (:foreground "pink" :underline t))
+ (((class color)
+ (background light))
+ (:foreground "red" :underline t))
+ (t (:underline t)))
"Face used for group tags.")
(defface custom-group-tag-face '((((class color)
(defun custom-group-value-create (widget)
(let ((state (widget-get widget :custom-state)))
(unless (eq state 'hidden)
+ (message "Creating group...")
(custom-load-widget widget)
(let* ((level (widget-get widget :custom-level))
(symbol (widget-value widget))
(members (get symbol 'custom-group))
(prefixes (widget-get widget :custom-prefixes))
(custom-prefix-list (custom-prefix-add symbol prefixes))
+ (length (length members))
+ (count 0)
(children (mapcar (lambda (entry)
(widget-insert "\n")
+ (message "Creating group members... %2d%%"
+ (/ (* 100.0 count) length))
+ (setq count (1+ count))
(prog1
(widget-create-child-and-convert
widget (nth 1 entry)
(unless (eq (preceding-char) ?\n)
(widget-insert "\n"))))
members)))
+ (message "Creating group magic...")
(mapcar 'custom-magic-reset children)
+ (message "Creating group state...")
(widget-put widget :children children)
- (custom-group-state-update widget)))))
+ (custom-group-state-update widget)
+ (message "Creating group... done")))))
(defvar custom-group-menu
'(("Set" . custom-group-set)
(princ ")")
(princ " t)"))))))
(princ ")")
- (unless (eolp)
+ (unless (looking-at "\n")
(princ "\n")))))
(defun custom-save-faces ()
(princ ")")
(princ " t)"))))))
(princ ")")
- (unless (eolp)
+ (unless (looking-at "\n")
(princ "\n")))))
+;;;###autoload
(defun custom-save-all ()
"Save all customizations in `custom-file'."
(custom-save-variables)
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, faces
-;; Version: 1.65
+;; Version: 1.70
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
;;; Compatibility.
+(if (string-match "XEmacs" emacs-version)
+ (defun custom-face-background (face &optional frame)
+ ;; Specifiers suck!
+ "Return the background color name of face FACE, or nil if unspecified."
+ (color-instance-name (specifier-instance (face-background face) frame)))
+ (defalias 'custom-face-background 'face-background))
+
+(if (string-match "XEmacs" emacs-version)
+ (defun custom-face-foreground (face &optional frame)
+ ;; Specifiers suck!
+ "Return the background color name of face FACE, or nil if unspecified."
+ (color-instance-name (specifier-instance (face-foreground face) frame)))
+ (defalias 'custom-face-foreground 'face-foreground))
+
(eval-and-compile
(unless (fboundp 'frame-property)
;; XEmacs function missing in Emacs 19.34.
;; XEmacs function missing in Emacs.
(defun set-face-doc-string (face string)
"Set the documentation string for FACE to STRING."
- (put face 'face-doc-string string))))
+ (put face 'face-doc-string string)))
+
+ (when (and (not (fboundp 'set-face-stipple))
+ (fboundp 'set-face-background-pixmap))
+ ;; Emacs function missing in XEmacs 19.15.
+ (defun set-face-stipple (face pixmap &optional frame)
+ ;; Written by Kyle Jones.
+ "Change the stipple pixmap of face FACE to PIXMAP.
+PIXMAP should be a string, the name of a file of pixmap data.
+The directories listed in the `x-bitmap-file-path' variable are searched.
+
+Alternatively, PIXMAP may be a list of the form (WIDTH HEIGHT DATA)
+where WIDTH and HEIGHT are the size in pixels,
+and DATA is a string, containing the raw bits of the bitmap.
+
+If the optional FRAME argument is provided, change only
+in that frame; otherwise change each frame."
+ (while (not (find-face face))
+ (setq face (signal 'wrong-type-argument (list 'facep face))))
+ (while (cond ((stringp pixmap)
+ (unless (file-readable-p pixmap)
+ (setq pixmap (vector 'xbm ':file pixmap)))
+ nil)
+ ((and (consp pixmap) (= (length pixmap) 3))
+ (setq pixmap (vector 'xbm ':data pixmap))
+ nil)
+ (t t))
+ (setq pixmap (signal 'wrong-type-argument
+ (list 'stipple-pixmap-p pixmap))))
+ (while (and frame (not (framep frame)))
+ (setq frame (signal 'wrong-type-argument (list 'framep frame))))
+ (set-face-background-pixmap face pixmap frame))))
(unless (fboundp 'x-color-values)
;; Emacs function missing in XEmacs 19.14.
(or (frame-property
frame
'background-color)
- (color-instance-name
- (specifier-instance
- (face-background 'default))))
+ (custom-face-background
+ 'default))
(error nil)))
(or (string-match "XEmacs" emacs-version)
window-system)
(:underline (toggle :format "Underline: %[%v%]\n"
:help-echo "\
Control whether the text should be underlined.")
- set-face-underline-p)
+ set-face-underline-p
+ face-underline-p)
(:foreground (color :tag "Foreground"
:value "black"
:help-echo "Set foreground color.")
- set-face-foreground)
+ set-face-foreground
+ custom-face-foreground)
(:background (color :tag "Background"
:value "white"
:help-echo "Set background color.")
- set-face-background)
+ set-face-background
+ custom-face-background)
;; (:invert (const :format "Invert Face\n"
;; :sibling-args (:help-echo "
;;Reverse the foreground and background color.
set-face-stipple))
"Alist of face attributes.
-The elements are of the form (KEY TYPE SET) where KEY is a symbol
+The elements are of the form (KEY TYPE SET GET) where KEY is a symbol
identifying the attribute, TYPE is a widget type for editing the
-attibute, SET is a function for setting the attribute value.
+attibute, SET is a function for setting the attribute value, and GET is a function for getiing the attribute value.
The SET function should take three arguments, the face to modify, the
value of the attribute, and optionally the frame where the face should
-be changed.")
+be changed.
+
+The GET function should take two arguments, the face to examine, and
+optonally the frame where the face should be examined.")
(defun custom-face-attributes-set (face frame &rest atts)
"For FACE on FRAME set the attributes [KEYWORD VALUE]....
(funcall fun face value frame)
(error nil)))))
+(defun custom-face-attributes-get (face frame)
+ "For FACE on FRAME get the attributes [KEYWORD VALUE]....
+Each keyword should be listed in `custom-face-attributes'.
+
+If FRAME is nil, use the default face."
+ (let ((atts custom-face-attributes)
+ att result get)
+ (while atts
+ (setq att (car atts)
+ atts (cdr atts)
+ get (nth 3 att))
+ (when get
+ (let ((answer (funcall get face frame)))
+ (unless (equal answer (funcall get 'default frame))
+ (when (widget-apply (nth 1 att) :match answer)
+ (setq result (cons (nth 0 att) (cons answer result))))))))
+ result))
+
(defun custom-set-face-bold (face value &optional frame)
"Set the bold property of FACE to VALUE."
(if value
(defun custom-initialize-frame (&optional frame)
"Initialize local faces for FRAME if necessary.
-If FRAME is missing or nil, the first member (frame-list) is used."
+If FRAME is missing or nil, the first member of (frame-list) is used."
(unless frame
(setq frame (car (frame-list))))
(unless (equal (custom-get-frame-properties)
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, faces
-;; Version: 1.65
+;; Version: 1.70
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
The ATTS of the first entry in SPEC where the DISPLAY matches the
frame should take effect in that frame. DISPLAY can either be the
-symbol `t', which will match all frames, or an alist of the form
+symbol t, which will match all frames, or an alist of the form
\((REQ ITEM...)...)
For the DISPLAY to match a FRAME, the REQ property of the frame must
match one of the ITEM. The following REQ are defined:
-`type' (the value of (window-system))
+`type' (the value of `window-system')
Should be one of `x' or `tty'.
`class' (the frame's color support)
`(custom-declare-group (quote ,symbol) ,members ,doc ,@args))
(defun custom-add-to-group (group option widget)
- "To existing GROUP add a new OPTION of type WIDGET,
+ "To existing GROUP add a new OPTION of type WIDGET.
If there already is an entry for that option, overwrite it."
(let* ((members (get group 'custom-group))
(old (assq option members)))
(defvar gnus-number-of-articles-to-be-saved nil)
(defvar gnus-inhibit-hiding nil)
-(defvar gnus-newsgroup-name)
(defsubst gnus-article-hide-text (b e props)
"Set text PROPS on the B to E region, extending `intangible' 1 past B."
"Translate overstrikes into bold text."
(interactive)
(save-excursion
+ (goto-char (point-min))
+ (re-search-forward "\n\n")
(let ((buffer-read-only nil))
(while (search-forward "\b" nil t)
(let ((next (following-char))
(defun gnus-article-hidden-text-p (type)
"Say whether the current buffer contains hidden text of type TYPE."
- (let ((pos (text-property-any (point-min) (point-max) 'article-type type)))
- (when pos
- (if (get-text-property pos 'invisible)
- 'hidden
- 'shown))))
+ (let ((start (point-min))
+ (pos (text-property-any (point-min) (point-max) 'article-type type)))
+ (while (and pos
+ (not (get-text-property pos 'invisible)))
+ (setq pos
+ (text-property-any (1+ pos) (point-max) 'article-type type)))
+ (if pos
+ 'hidden
+ 'shown)))
(defun gnus-article-show-hidden-text (type &optional hide)
"Show all hidden text of type TYPE.
(use-local-map gnus-article-mode-map)
(gnus-update-format-specifications nil 'article-mode)
(set (make-local-variable 'page-delimiter) gnus-page-delimiter)
+ (set (make-local-variable 'gnus-page-broken) nil)
(set (make-local-variable 'gnus-button-marker-list) nil)
(gnus-set-default-directory)
(buffer-disable-undo (current-buffer))
(run-hooks 'gnus-article-display-hook))
;; Do page break.
(goto-char (point-min))
- (when gnus-break-pages
- (gnus-narrow-to-page)))
+ (setq gnus-page-broken
+ (when gnus-break-pages
+ (gnus-narrow-to-page)
+ t)))
(gnus-set-mode-line 'article)
(gnus-configure-windows 'article)
(goto-char (point-min))
(and (pos-visible-in-window-p) ;Not continuation line.
(eobp)))
;; Nothing in this page.
- (if (or (not gnus-break-pages)
+ (if (or (not gnus-page-broken)
(save-excursion
(save-restriction
(widen) (forward-line 1) (eobp)))) ;Real end-of-buffer?
Argument LINES specifies lines to be scrolled down."
(interactive "p")
(move-to-window-line 0)
- (if (and gnus-break-pages
+ (if (and gnus-page-broken
(bobp)
(not (save-restriction (widen) (bobp)))) ;Real beginning-of-buffer?
(progn
(interactive (list gnus-group-sort-function current-prefix-arg))
(funcall gnus-group-sort-alist-function
(gnus-make-sort-function func) reverse)
- (gnus-group-list-groups))
+ (gnus-group-list-groups)
+ (gnus-dribble-touch))
(defun gnus-group-sort-flat (func reverse)
;; We peel off the dummy group from the alist.
(if gnus-local-domain
(nreverse (message-tokenize-header
gnus-local-domain "."))
- '(""))
+ '("."))
(nreverse (message-tokenize-header
(substring from (1+ at-idx)) ".")))))
(set-buffer (get-buffer-create
(domainp (and gnus-picons-display-as-address dots))
picons found bar-ann cur first)
(when (string-match "/MISC" database)
- (setq addrs '("")))
+ (setq addrs '(".")))
(while (and addrs
(file-accessible-directory-p path))
(setq cur (pop addrs)
:group 'gnus-score-default
:type '(choice (const :tag "temporary" t)
(const :tag "permanent" p)
- (const :tag "immediate" i)))
+ (const :tag "immediate" i)
+ (const :tag "ask" nil)))
(defcustom gnus-score-after-write-file-function nil
"Function called with the name of the score file just written to disk."
(save-excursion
(beginning-of-line)
(when (re-search-forward ": \\(.*\\)$" (gnus-point-at-eol) t)
- (gnus-group-prefixed-name (match-string 1) gnus-browse-current-method))))
+ (gnus-group-prefixed-name
+ ;; Remove text props.
+ (format "%s" (match-string 1))
+ gnus-browse-current-method))))
(defun gnus-browse-unsubscribe-group ()
"Toggle subscription of the current group in the browse buffer."
;;; Internal variables
(defvar gnus-scores-exclude-files nil)
+(defvar gnus-page-broken nil)
(defvar gnus-original-article nil)
(defvar gnus-article-internal-prepare-hook nil)
(progn
(gnus-message 5 "Returning to the group buffer")
(setq entered t)
- (set-buffer current-buffer)
- (gnus-summary-exit)
+ (when (buffer-live-p current-buffer)
+ (set-buffer current-buffer)
+ (gnus-summary-exit))
(run-hooks 'gnus-group-no-more-groups-hook))
;; We try to enter the target group.
(gnus-group-jump-to-group target-group)
(gnus-eval-in-buffer-window gnus-article-buffer
(widen)
(goto-char (point-min))
- (when gnus-break-pages
+ (when gnus-page-broken
(gnus-narrow-to-page))))
(defun gnus-summary-end-of-article ()
(widen)
(goto-char (point-max))
(recenter -3)
- (when gnus-break-pages
+ (when gnus-page-broken
(gnus-narrow-to-page))))
(defun gnus-summary-print-article (&optional filename)
gnus-visual)
(gnus-summary-select-article nil 'force)))
(gnus-summary-goto-subject gnus-current-article)
- ; (gnus-configure-windows 'article)
(gnus-summary-position-point))
(defun gnus-summary-verbose-headers (&optional arg)
;; Copy the marks to other group.
(gnus-add-marked-articles
to-group (cdar marks) (list to-article) info))
- (setq marks (cdr marks)))))
+ (setq marks (cdr marks)))
+
+ (gnus-dribble-enter
+ (concat "(gnus-group-set-info '"
+ (gnus-prin1-to-string (gnus-get-info to-group))
+ ")"))))
;; Update the Xref header in this article to point to
;; the new crossposted article we have just created.
(forward-line 1)
(setq unfound nil)))
(when (and unfound
+ topic
(not (gnus-topic-goto-missing-topic topic)))
(gnus-topic-insert-topic-line
topic t t (car (gnus-topic-find-topology topic)) nil 0)))))
(defun gnus-kill-all-overlays ()
"Delete all overlays in the current buffer."
- (when (fboundp 'overlay-lists)
+ (unless gnus-xemacs
(let* ((overlayss (overlay-lists))
(buffer-read-only nil)
(overlays (nconc (car overlayss) (cdr overlayss))))
(defun gnus-xmas-summary-set-display-table ()
;; Setup the display table -- like gnus-summary-setup-display-table,
+ ;; Setup the display table -- like `gnus-summary-setup-display-table',
;; but done in an XEmacsish way.
(let ((table (make-display-table))
+ ;; Nix out all the control chars...
+ (default-table (specifier-instance current-display-table))
(i 32))
;; Nix out all the control chars...
(while (>= (setq i (1- i)) 0)
(let ((i 256))
(while (>= (setq i (1- i)) 127)
;; Only modify if the entry is nil.
- (unless (aref table i)
- (aset table i [??]))))
+ (or (aref table i)
+ ;; Only modify if the default entry is nil.
+ (or (aref default-table i)
+ (aset table i [??]))))
+ ;; Can't use `set-specifier' because of a bug in 19.14 and earlier
(add-spec-to-specifier current-display-table table (current-buffer) nil)))
(defun gnus-xmas-add-hook (hook function &optional append local)
:link '(custom-manual "(gnus)Exiting Gnus")
:group 'gnus)
-(defconst gnus-version-number "5.4.40"
+(defconst gnus-version-number "5.4.41"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Gnus v%s" gnus-version-number)
;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
;; Keywords: mail, pop3
-;; Version: 1.3c
+;; Version: 1.3e
;; This file is part of GNU Emacs.
(nth 1 date) (nth 0 date)
(nth 3 date) (nth 2 date)))
))
- (setq From_ (format "From %s %s\n" from date))
+ (setq From_ (format "\nFrom %s %s\n" from date))
(while (string-match "," From_)
(setq From_ (concat (substring From_ 0 (match-beginning 0))
(substring From_ (match-end 0)))))
;; bill@att.com
(goto-char start))
(setq pop3-read-point (point-marker))
- (goto-char (match-beginning 0))
- (backward-char 2)
- (if (not (looking-at "\r\n"))
- (insert "\r\n"))
- (re-search-forward "\\.\r\n")
+;; this code does not seem to work for some POP servers...
+;; and I cannot figure out why not.
+; (goto-char (match-beginning 0))
+; (backward-char 2)
+; (if (not (looking-at "\r\n"))
+; (insert "\r\n"))
+; (re-search-forward "\\.\r\n")
(goto-char (match-beginning 0))
(setq end (point-marker))
(pop3-clean-region start end)
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: extensions
-;; Version: 1.65
+;; Version: 1.70
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: extensions
-;; Version: 1.65
+;; Version: 1.70
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
(autoload 'pp-to-string "pp")
(autoload 'Info-goto-node "info")
+ (when (string-match "XEmacs" emacs-version)
+ (condition-case nil
+ (require 'overlay)
+ (error (load-library "x-overlay"))))
+
(if (string-match "XEmacs" emacs-version)
;; XEmacs spell `intangible' as `atomic'.
(defun widget-make-intangible (from to side)
(goto-char (point-max))
result)))
+(defface widget-inactive-face '((((class grayscale color)
+ (background dark))
+ (:foreground "light gray"))
+ (((class grayscale color)
+ (background light))
+ (:foreground "dark gray"))
+ (t
+ (:italic t)))
+ "Face used for inactive widgets."
+ :group 'widgets)
+
+(defun widget-specify-inactive (widget from to)
+ "Make WIDGET inactive for user modifications."
+ (unless (widget-get widget :inactive)
+ (let ((overlay (make-overlay from to nil t nil)))
+ (overlay-put overlay 'face 'widget-inactive-face)
+ (overlay-put overlay 'evaporate 't)
+ (overlay-put overlay (if (string-match "XEmacs" emacs-version)
+ 'read-only
+ 'modification-hooks) '(widget-overlay-inactive))
+ (widget-put widget :inactive overlay))))
+
+(defun widget-overlay-inactive (&rest junk)
+ "Ignoring the arguments, signal an error."
+ (unless inhibit-read-only
+ (error "Attempt to modify inactive widget")))
+
+
+(defun widget-specify-active (widget)
+ "Make WIDGET active for user modifications."
+ (let ((inactive (widget-get widget :inactive)))
+ (when inactive
+ (delete-overlay inactive)
+ (widget-put widget :inactive nil))))
+
;;; Widget Properties.
(defsubst widget-type (widget)
(widget-member (get (car widget) 'widget-type) property))
(t nil)))
+;;;###autoload
(defun widget-apply (widget property &rest args)
"Apply the value of WIDGET's PROPERTY to the widget itself.
ARGS are passed as extra arguments to the function."
(cons (list (car vals)) (cdr vals)))
(t nil)))
+(defun widget-apply-action (widget &optional event)
+ "Apply :action in WIDGET in response to EVENT."
+ (if (widget-apply widget :active)
+ (widget-apply widget :action event)
+ (error "Attempt to perform action on inactive widget")))
+
;;; Glyphs.
(defcustom widget-glyph-directory (concat data-directory "custom/")
IMAGE should either be a glyph, or a name sans extension of an xpm or
xbm file located in `widget-glyph-directory'.
-WARNING: If you call this with a glyph, and you want theuser to be
+WARNING: If you call this with a glyph, and you want the user to be
able to activate the glyph, make sure it is unique. If you use the
-same glyph for multiple widgets, "
+same glyph for multiple widgets, activating any of the glyphs will
+cause the last created widget to be activated."
(cond ((not (and (string-match "XEmacs" emacs-version)
widget-glyph-enable
(fboundp 'make-glyph)
(interactive "@d")
(let ((field (get-text-property pos 'field)))
(if field
- (widget-apply field :action event)
+ (widget-apply-action field event)
(call-interactively
(lookup-key widget-global-map (this-command-keys))))))
(event-glyph event))
(let ((widget (glyph-property (event-glyph event) 'widget)))
(if widget
- (widget-apply widget :action event)
+ (widget-apply-action widget event)
(message "You clicked on a glyph."))))
((event-point event)
(let ((button (get-text-property (event-point event) 'button)))
(if button
- (widget-apply button :action event)
+ (widget-apply-action button event)
(call-interactively
(or (lookup-key widget-global-map [ button2 ])
(lookup-key widget-global-map [ down-mouse-2 ])
(event-glyph event))
(let ((widget (glyph-property (event-glyph event) 'widget)))
(if widget
- (widget-apply widget :action event)
+ (widget-apply-action widget event)
(message "You clicked on a glyph.")))
(call-interactively (lookup-key widget-global-map (this-command-keys)))))
(interactive "@d")
(let ((button (get-text-property pos 'button)))
(if button
- (widget-apply button :action event)
+ (widget-apply-action button event)
(let ((command (lookup-key widget-global-map (this-command-keys))))
(when (commandp command)
(call-interactively command))))))
:value-inline 'widget-default-value-inline
:menu-tag-get 'widget-default-menu-tag-get
:validate (lambda (widget) nil)
+ :active 'widget-default-active
+ :activate 'widget-specify-active
+ :deactivate 'widget-default-deactivate
:action 'widget-default-action
:notify 'widget-default-notify)
(inhibit-read-only t)
after-change-functions)
(widget-apply widget :value-delete)
- (delete-region from to)
+ (when (< from to)
+ ;; Kludge: this doesn't need to be true for empty formats.
+ (delete-region from to))
(set-marker from nil)
(set-marker to nil)))
(widget-get widget :tag)
(widget-princ-to-string (widget-get widget :value))))
+(defun widget-default-active (widget)
+ "Return t iff this widget active (user modifiable)."
+ (and (not (widget-get widget :inactive))
+ (let ((parent (widget-get widget :parent)))
+ (or (null parent)
+ (widget-apply parent :active)))))
+
+(defun widget-default-deactivate (widget)
+ "Make WIDGET inactive for user modifications."
+ (widget-specify-inactive widget
+ (widget-get widget :from)
+ (widget-get widget :to)))
+
(defun widget-default-action (widget &optional event)
;; Notify the parent when a widget change
(let ((parent (widget-get widget :parent)))
(defun widget-gui-action (widget)
"Apply :action for WIDGET."
- (widget-apply widget :action (this-command-keys)))
+ (widget-apply-action widget (this-command-keys)))
;;; The `link' Widget.
:on "[X]"
:on-glyph "check1"
:off "[ ]"
- :off-glyph "check0")
+ :off-glyph "check0"
+ :action 'widget-checkbox-action)
+
+(defun widget-checkbox-action (widget &optional event)
+ "Toggle checkbox, notify parent, and set active state of sibling."
+ (widget-toggle-action widget event)
+ (let ((sibling (widget-get-sibling widget)))
+ (when sibling
+ (if (widget-value widget)
+ (widget-apply sibling :activate)
+ (widget-apply sibling :deactivate)))))
;;; The `checklist' Widget.
((eq escape ?v)
(setq child
(cond ((not chosen)
- (widget-create-child widget type))
+ (let ((child (widget-create-child widget type)))
+ (widget-apply child :deactivate)
+ child))
((widget-get type :inline)
(widget-create-child-value
widget type (cdr chosen)))
(setq child (if chosen
(widget-create-child-value
widget type value)
- (widget-create-child widget type))))
+ (widget-create-child widget type)))
+ (unless chosen
+ (widget-apply child :deactivate)))
(t
(error "Unknown escape `%c'" escape)))))
;; Update properties.
(widget-apply current :match value))))
(widget-value-set button match)
(if match
- (widget-value-set current value))
+ (progn
+ (widget-value-set current value)
+ (widget-apply current :activate))
+ (widget-apply current :deactivate))
(setq found (or found match))))))
(defun widget-radio-validate (widget)
children (cdr children))
(let* ((button (widget-get current :button)))
(cond ((eq child button)
- (widget-value-set button t))
+ (widget-value-set button t)
+ (widget-apply current :activate))
((widget-value button)
- (widget-value-set button nil)))))))
+ (widget-value-set button nil)
+ (widget-apply current :deactivate)))))))
;; Pass notification to parent.
(widget-apply widget :notify child event))
(setq children (cdr children)))
(setcdr children (cons child (cdr children)))))))
(widget-setup)
- (widget-apply widget :notify widget))
+ widget (widget-apply widget :notify widget))
(defun widget-editable-list-delete-at (widget child)
;; Delete child from list of children.
;;
;; Author: Per Abrahamsen <abraham@dina.kvl.dk>
;; Keywords: help, extensions, faces, hypermedia
-;; Version: 1.65
+;; Version: 1.70
;; X-URL: http://www.dina.kvl.dk/~abraham/custom/
;;; Commentary:
(set (car keywords) (car keywords)))
(setq keywords (cdr keywords)))))))
-(define-widget-keywords :sibling-args :delete-button-args
+(define-widget-keywords :deactivate :active :inactive :activate
+ :sibling-args :delete-button-args
:insert-button-args :append-button-args :button-args
:tag-glyph :off-glyph :on-glyph :valid-regexp
:secret :sample-face :sample-face-get :case-fold :widget-doc
;; These autoloads should be deleted when the file is added to Emacs.
(unless (fboundp 'load-gc)
+ (autoload 'widget-apply "wid-edit")
(autoload 'widget-create "wid-edit")
(autoload 'widget-insert "wid-edit")
(autoload 'widget-browse "wid-browse" nil t)
@comment node-name, next, previous, up
@top The Customization Library
-Version: 1.65
+Version: 1.70
@menu
* Introduction::
It is possible to specify that a face should have different attributes
on different device types. For example, a face may make text red on a
-color device, and bold on a monochrome device.
+color device, and bold on a monochrome device. You do this by
+activating `Edit All' in the state menu.
The way this is presented in the customization buffer is to have a list
of display specifications, and for each display specification a list of
@example
*** custom-invalid-face: (sample)
+ State: this item is unchanged from its factory setting.
[ ] Face used when the customize item is invalid.
- [INS] [DEL] Display: [ ] Type: [ ] X [ ] TTY
+ [INS] [DEL] Display: [ ] Type: [ ] X [ ] PM [ ] Win32 [ ] DOS [ ] TTY
[X] Class: [X] Color [ ] Grayscale [ ] Monochrome
[ ] Background: [ ] Light [ ] Dark
Attributes: [ ] Bold: off
@end example
This has two display specifications. The first will match all color
-displays, independently on whether the device is X11 or a tty, and
+displays, independently on what window system the device belongs to, and
whether background color is dark or light. For devices matching this
specification, @samp{custom-invalid-face} will force text to be
displayed in yellow on red, but leave all other attributes alone.
the check boxes. The first checkbox in each line in the display
specification is special. It specify whether this particular property
will even be relevant. By not checking the box in the first display, we
-match all device types, also device types other than X11 and tty, for
-example ms-windows, nextstep, and mac os.
+match all device types, also device types other than those listed.
After modifying the face, you can activate the state button to make the
changes take effect. The menu items in the state button menu is similar
When you save the customizations, call to @code{custom-set-variables},
@code{custom-set-faces} are inserted into the file specified by
@code{custom-file}. By default @code{custom-file} is your @file{.emacs}
-file. The two functions will initialize variables and faces as you have
-specified.
+file. If you use another file, you must explicitly load it yourself.
+The two functions will initialize variables and faces as you have
+specified.
@node Wishlist, , The Init File, Top
@comment node-name, next, previous, up
should not be allowed to select the @samp{Factory} menu item.
@item
-We need @strong{much} better support for keyboard operations in the
-customize buffer.
+Better support for keyboard operations in the customize buffer.
@item
Integrate with @file{w3} so you can customization buffers with much
Support selectable color themes. I.e., change many faces by setting one
variable.
-@item
-There should be a way to see only the "current" display when editing a
-face, and that should be "on" by default.
-
@item
Support undo using lmi's @file{gnus-undo.el}.
Suggested by Jens Lautenbacher
@samp{<jens@@lemming0.lem.uni-karlsruhe.de>}.@refill
+@item
+Use @file{font.el} to extract font attributes from rogue faces.
+
+@item
+Empty customization groups should start open (harder than it looks).
+
@end itemize
@contents
\input texinfo @c -*-texinfo-*-
@setfilename gnus
-@settitle Gnus 5.4.40 Manual
+@settitle Gnus 5.4.41 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Gnus 5.4.40 Manual
+@title Gnus 5.4.41 Manual
@author by Lars Magne Ingebrigtsen
@page
spool or your mbox file. All at the same time, if you want to push your
luck.
-This manual corresponds to Gnus 5.4.40.
+This manual corresponds to Gnus 5.4.41.
@end ifinfo
Raja R. Harinath,
Hisashige Kenji, @c Hisashige
Marc Horowitz,
+Gunnar Horrigmo,
François Felix Ingrand,
Ishikawa Ichiro, @c Ishikawa
Lee Iverson,
Rajappa Iyer,
Randell Jesup,
Fred Johansen,
+Kim-Minh Kaplan,
Greg Klanderman,
Karl Kleinpaste,
Peter Skov Knudsen,
\input texinfo @c -*-texinfo-*-
@setfilename message
-@settitle Message 5.4.40 Manual
+@settitle Message 5.4.41 Manual
@synindex fn cp
@synindex vr cp
@synindex pg cp
@tex
@titlepage
-@title Message 5.4.40 Manual
+@title Message 5.4.41 Manual
@author by Lars Magne Ingebrigtsen
@page
* Key Index:: List of Message mode keys.
@end menu
-This manual corresponds to Message 5.4.40. Message is distributed with
+This manual corresponds to Message 5.4.41. Message is distributed with
the Gnus distribution bearing the same version number as this manual
has.
\input texinfo.tex
-@c $Id: widget.texi,v 1.93 1997/03/18 13:42:55 abraham Exp $
+@c $Id: widget.texi,v 1.98 1997/04/02 16:26:18 abraham Exp $
@c %**start of header
@setfilename widget
@comment node-name, next, previous, up
@top The Emacs Widget Library
-Version: 1.65
+Version: 1.70
@menu
* Introduction::
Return the name of @var{widget}, a symbol.
@end defun
+Widgets can be in two states: active, which means they are modifiable by
+the user, or inactive, which means they cannot be modified by the user.
+You can query or set the state with the following code:
+
+@lisp
+;; Examine if @var{widget} is active or not.
+(if (widget-apply @var{widget} :active)
+ (message "Widget is active.")
+ (message "Widget is inactive.")
+
+;; Make @var{widget} inactive.
+(widget-apply @var{widget} :deactivate)
+
+;; Make @var{widget} active.
+(widget-apply @var{widget} :activate)
+@end lisp
+
+A widget is inactive if itself, or any of its ancestors (found by
+following the @code{:parent} link) have been deactivated. To make sure
+a widget is really active, you must therefore activate both itself, and
+all its ancestors.
+
+@lisp
+(while widget
+ (widget-apply widget :activate)
+ (setq widget (widget-get widget :parent)))
+@end lisp
+
+You can check if a widget has been made inactive by examining the value
+of @code{:inactive} keyword. If this is non-nil, the widget itself has
+been deactivated. This is different from using the @code{:active}
+keyword, in that the later tell you if the widget @strong{or} any of its
+ancestors have been deactivated. Do not attempt to set the
+@code{:inactive} keyword directly. Use the @code{:activate}
+@code{:deactivated} keywords instead.
+
+
@node Defining New Widgets, Widget Wishlist., Widget Properties, Top
@comment node-name, next, previous, up
@section Defining New Widgets
@code{widget-item-convert-widget}, should not have names that are
specific to the first widget where I happended to use them.
-@item
-Unchecked items in a @code{radio-button-choice} or @code{checklist}
-should be grayed out, and the subwidgets should somehow become inactive.
-This could perhaps be implemented by binding @code{widget-inactive} to t
-when inserting the grayed out subwidget, and let the widget-specify
-functions check that variable.
-
@item
Flag to make @code{widget-move} skip a specified button.
* a command to fetch an arbitrary article -- without having to be
in the summary buffer.
+
+* a new nncvs backend. Each group would show an article, using
+version branches as threading, checkin date as the date, etc.
projects / gnus / commitdiff