* Re: gnus-xmas.el,v
[not found] <87u0eurnkv.fsf@quimby.gnus.org>
@ 2005-11-03 11:52 ` Simon Josefsson
2006-04-13 7:04 ` gnus-xmas.el,v Lars Magne Ingebrigtsen
0 siblings, 1 reply; 4+ messages in thread
From: Simon Josefsson @ 2005-11-03 11:52 UTC (permalink / raw)
Cc: ding
I analyzed the broken gnus-xmas.el,v, so I'm cc:ing ding for future
archaeological expeditions.
Lars Magne Ingebrigtsen <larsi@quimby.gnus.org> writes:
> Here it is:
Thanks!
The file was corrupt, in the middle of revision 4.10 (Quassia 0.23)
the file contain patches from gnus-uu.el. It seems these two files
were cross-linked. The corrupt junk has replaced all gnus-xmas.el
patches 4.10...4.1, 3.49... 3.38 (3.38 is Gnus 5.4.41). The corrupt
junk is from gnus-uu.el, specifically, revisions 3.4...3.1,
2.46...2.30. We could put those patches back into gnus-uu.el,v (some
of them are missing there), but this isn't critical for my uses. It
can be done later if anyone cares about that.
This patch (and the last gnus-uu.el,v) doesn't fake the missing log
entries and patches, but 'cvs log' doesn't seem to care. We might
have to fake the entries in the future, if some tool complains. It
would be easy to fake those entries. If someone was patient enough to
do it, we could even recover most of the patches by extracting code
from the released archives.
Anyway. Apply patch below to remove the gnus-uu.el,v junk inside
gnus-xmas.el,v.
--- gnus-xmas.el,v 2005-11-03 12:26:14.000000000 +0100
+++ /home/jas/src/hack-gnus/root/gnus/gnus-xmas.el,v 2005-11-03 12:36:39.000000000 +0100
@@ -4556,871 +4556,6 @@
a2 1
;; Copyright (C) 1995,96,97 Free Software Foundation, Inc.
d60 1
-a60 1
- "Color styles used foormat "End of %s Digest" name))
- "\n"))
- (insert (concat (make-string (length end-string) ?*) "\n"))
- (write-region 1 (point-max) gnus-uu-saved-article-name t))
- (kill-buffer (get-buffer "*gnus-uu-pre*"))
- (kill-buffer (get-buffer "*gnus-uu-body*"))
- (setq state (cons 'end state))))
-d854 3
-a856 3
- (if (not (re-search-forward gnus-uu-binhex-begin-line nil t))
- (if (not (re-search-forward gnus-uu-binhex-body-line nil t))
- (setq state (list 'wrong-type))))
-d869 6
-a874 5
- gnus-uu-binhex-end-line) nil t)
- (if (looking-at gnus-uu-binhex-end-line)
- (setq state (if (memq 'begin state)
- (cons 'end state)
- (list 'end))))
-d877 2
-a878 2
- (if (file-exists-p gnus-uu-binhex-article-name)
- (append-to-file start-char (point) gnus-uu-binhex-article-name))))
-d936 3
-a938 3
- (if (and (not (string= (or action "") "gnus-uu-archive"))
- gnus-uu-view-with-metamail)
- (if (setq action
-d940 1
-a940 1
- (setq action (format "metamail -d -b -c \"%s\"" action))))
-d965 3
-a967 4
- (if (looking-at vernum)
- (progn
- (replace-match vernum t t)
- (setq beg (length vernum))))
-d980 1
-a980 1
- (looking-at "[0-9]")
-d1007 2
-a1008 2
- (setq articles (cons (gnus-summary-article-number)
- articles))
-d1046 2
-a1047 3
- (setq list-of-subjects
- (cons (cons subj (gnus-data-number d))
- list-of-subjects)))))
-d1051 1
-a1051 1
- (mapcar (lambda (sub) (cdr sub))
-d1054 1
-a1054 1
- (not do-not-translate))
-d1077 3
-a1079 3
- (if translate
- (while (re-search-forward "[A-Za-z]" nil t)
- (replace-match "a" t t)))
-d1124 3
-a1126 4
- (if dont-unmark-last-article
- (progn
- (setq art (car gnus-uu-has-been-grabbed))
- (setq gnus-uu-has-been-grabbed (cdr gnus-uu-has-been-grabbed))))
-d1130 2
-a1131 2
- (if dont-unmark-last-article
- (setq gnus-uu-has-been-grabbed (list art))))))
-d1140 1
-a1140 1
- (let ((state 'first)
-d1180 1
-a1180 1
- (and (or (eq state 'first)
-d1183 9
-a1191 9
- (if has-been-begin
- ;; If there is a `result-file' here, that means that the
- ;; file was unsuccessfully decoded, so we delete it.
- (when (and result-file
- (file-exists-p result-file)
- (gnus-y-or-n-p
- (format "Delete unsuccessfully decoded file %s"
- result-file)))
- (delete-file result-file)))
-d1255 1
-a1255 1
- ((not (or (memq 'ok process-state)
-d1333 1
-a1333 1
- (memq (process-status gnus-uu-uudecode-process)
-d1358 1
-a1358 1
- (setq state (cons 'end state))
-d1423 2
-a1424 2
- (if (re-search-forward gnus-uu-shar-name-marker nil t)
- (setq res (buffer-substring (match-beginning 1) (match-end 1))))
-d1436 10
-a1445 10
- (or no-ignore
- (and (not
- (and gnus-uu-ignore-files-by-name
- (string-match gnus-uu-ignore-files-by-name file-name)))
- (not
- (and gnus-uu-ignore-files-by-type
- (string-match gnus-uu-ignore-files-by-type
- (or (gnus-uu-choose-action
- file-name gnus-uu-ext-to-mime-list t)
- ""))))))
-d1449 2
-a1450 2
- (if (string-match (car rule) file-name)
- (setq action (cadr rule)))))
-d1463 2
-a1464 1
- (if (not action) (error "No unpackers for the file %s" file-path))
-d1469 2
-a1470 2
- (if (member action gnus-uu-destructive-archivers)
- (copy-file file-path (concat file-path "~") t))
-d1487 2
-a1488 2
- (if (member action gnus-uu-destructive-archivers)
- (rename-file (concat file-path "~") file-path t))
-d1498 1
-a1498 1
- (setq files (cons file files)))
-d1509 15
-a1523 16
- (if (and (not (member file ignore))
- (equal (gnus-uu-get-action (file-name-nondirectory file))
- "gnus-uu-archive"))
- (progn
- (setq did-unpack (cons file did-unpack))
- (or (gnus-uu-treat-archive file)
- (gnus-message 2 "Error during unpacking of %s" file))
- (let* ((newfiles (gnus-uu-ls-r gnus-uu-work-dir))
- (nfiles newfiles))
- (while nfiles
- (or (member (car nfiles) totfiles)
- (setq ofiles (cons (list (cons 'name (car nfiles))
- (cons 'original file))
- ofiles)))
- (setq nfiles (cdr nfiles)))
- (setq totfiles newfiles))))
-d1533 3
-a1535 4
- (if (file-directory-p (car files))
- (progn
- (setq ofiles (delete (car files) ofiles))
- (setq ofiles (append ofiles (gnus-uu-ls-r (car files))))))
-d1547 2
-a1548 2
- (or (member (file-name-nondirectory file) '("." ".."))
- (setq out (cons file out))))
-d1564 2
-a1565 1
- (if (looking-at "\n") (replace-match ""))
-d1572 5
-a1576 6
- (if (not found)
- (progn
- (beginning-of-line)
- (setq beg (point))
- (end-of-line)
- (setq length (- (point) beg))))
-d1581 2
-a1582 2
- (if (not (= length (- (point) beg)))
- (insert (make-string (- length (- (point) beg)) ? ))))
-d1590 5
-a1594 5
- (if (setq entry (assoc gnus-newsgroup-name gnus-uu-tmp-alist))
- (if (file-exists-p (cdr entry))
- (setq gnus-uu-work-dir (cdr entry))
- (setq gnus-uu-tmp-alist (delq entry gnus-uu-tmp-alist))
- nil)))
-d1600 3
-a1602 3
- (if (not (file-writable-p gnus-uu-tmp-dir))
- (error "Temp directory %s can't be written to"
- gnus-uu-tmp-dir)))
-d1609 2
-a1610 2
- (setq gnus-uu-tmp-alist (cons (cons gnus-newsgroup-name gnus-uu-work-dir)
- gnus-uu-tmp-alist)))))
-d1620 2
-a1621 2
- (and (setq buf (get-buffer gnus-uu-output-buffer-name))
- (kill-buffer buf))))
-d1722 3
-a1724 3
- (if gnus-uu-post-include-before-composing
- (save-excursion (setq gnus-uu-post-inserted-file-name
- (gnus-uu-post-insert-binary)))))
-d1735 6
-a1740 7
- (if (gnus-uu-post-encode-file "uuencode" path file-name)
- (progn
- (goto-char (point-min))
- (forward-line 1)
- (while (re-search-forward " " nil t)
- (replace-match "`"))
- t)))
-d1744 3
-a1746 4
- (if (gnus-uu-post-encode-uuencode path file-name)
- (progn
- (gnus-uu-post-make-mime file-name "x-uue")
- t)))
-d1750 3
-a1752 4
- (if (gnus-uu-post-encode-file "mmencode" path file-name)
- (progn
- (gnus-uu-post-make-mime file-name "base64")
- t)))
-d1758 1
-a1758 1
- (gnus-uu-choose-action file-name gnus-uu-ext-to-mime-list)
-d1767 3
-a1769 4
- (or (mail-fetch-field "mime-version")
- (progn
- (widen)
- (insert "MIME-Version: 1.0\n")))
-d1799 10
-a1808 11
- (setq gnus-inews-article-hook
- (cons
- '(lambda ()
- (save-excursion
- (goto-char (point-min))
- (if (re-search-forward "^Message-ID: \\(.*\\)$" nil t)
- (setq gnus-uu-post-message-id
- (buffer-substring
- (match-beginning 1) (match-end 1)))
- (setq gnus-uu-post-message-id nil))))
- gnus-inews-article-hook))
-d1812 2
-a1813 2
- (and gnus-uu-winconf-post-news
- (set-window-configuration gnus-uu-winconf-post-news)))
-d1823 2
-a1824 2
- (if (not (file-exists-p file-path))
- (error "%s: No such file" file-path))
-d1829 2
-a1830 2
- (if (string-match "^~/" file-path)
- (setq file-path (concat "$HOME" (substring file-path 1))))
-d1858 7
-a1864 6
- (if (not (re-search-forward
- (if gnus-uu-post-separate-description
- (concat "^" (regexp-quote gnus-uu-post-binary-separator)
- "$")
- (concat "^" (regexp-quote mail-header-separator) "$")) nil t))
- (error "Internal error: No binary/header separator"))
-d1877 2
-a1878 2
- (if (not (< ( "P" gnus-uu-decode-postscript-and-save)
-d560 12
-@
-
-
-3.4
-log
-@*** empty log message ***
-@
-text
-@d701 1
-a701 2
- (unless (file-exists-p (concat dir fromdir))
- (make-directory (concat dir fromdir) t))
-d1588 1
-a1588 2
- (if (not (file-directory-p gnus-uu-work-dir))
- (make-directory gnus-uu-work-dir t))
-@
-
-
-3.3
-log
-@*** empty log message ***
-@
-text
-@d1395 3
-a1397 1
- shell-command-switch (concat "cd " gnus-uu-work-dir " ; sh"))))
-@
-
-
-3.2
-log
-@*** empty log message ***
-@
-text
-@d286 4
-a289 1
- "S" gnus-uu-mark-sparse)
-@
-
-
-3.1
-log
-@*** empty log message ***
-@
-text
-@d32 1
-@
-
-
-2.46
-log
-@*** empty log message ***
-@
-text
-@d29 3
-a31 3
-(require 'gnus)
-(require 'gnus-msg)
-(eval-when-compile (require 'cl))
-d1584 1
-a1584 1
- (gnus-make-directory gnus-uu-work-dir))
-@
-
-
-2.45
-log
-@*** empty log message ***
-@
-text
-@d1317 12
-a1328 6
- (setq gnus-uu-uudecode-process
- (start-process
- "*uudecode*"
- (get-buffer-create gnus-uu-output-buffer-name)
- shell-file-name shell-command-switch
- (format "cd %s ; uudecode" gnus-uu-work-dir)))
-@
-
-
-2.44
-log
-@*** empty log message ***
-@
-text
-@d566 1
-a566 1
- (when (> (or (cdr (assq (gnus-data-number (caar data))
-d1095 1
-a1095 1
-;; `end' if the the end of an encoded file has been received
-d1587 1
-a1587 1
- (let (buf pst)
-@
-
-
-2.43
-log
-@*** empty log message ***
-@
-text
-@d1321 1
-a1321 1
- "sh" "-c"
-d1383 1
-a1383 1
- start-char (point-max) "sh" nil
-d1385 1
-a1385 1
- "-c" (concat "cd " gnus-uu-work-dir " ; sh"))))
-d1449 1
-a1449 1
- (if (= 0 (call-process "sh" nil
-d1451 1
-a1451 1
- nil "-c" command))
-d1751 1
-a1751 1
- (= 0 (call-process "sh" nil t nil "-c"
-@
-
-
-2.42
-log
-@*** empty log message ***
-@
-text
-@a187 5
-(defvar gnus-uu-view-and-save nil
- "*Non-nil means that the user will always be asked to save a file after viewing it.
-If the variable is nil, the user will only be asked to save if the
-viewing is unsuccessful. Default is nil.")
-
-@
-
-
-2.41
-log
-@*** empty log message ***
-@
-text
-@d682 1
-a682 1
- (unless (string-match "/\\.\\.?$" file)
-d1523 1
-a1523 1
- (or (string-match "/\\.\\.?$" file)
-d1625 1
-a1625 1
- (unless (string-match "/\\.\\.?$" file)
-@
-
-
-2.40
-log
-@*** empty log message ***
-@
-text
-@d1127 2
-a1128 2
-(defun gnus-uu-grab-articles
- (articles process-function &optional sloppy limit no-errors)
-a1642 3
-
-(require 'sendmail)
-(require 'rnews)
-@
-
-
-2.39
-log
-@*** empty log message ***
-@
-text
-@d323 1
-a323 1
-(defun gnus-uu-decode-uu (n)
-d338 1
-a338 1
-(defun gnus-uu-decode-unshar (n)
-d378 1
-a378 1
-(defun gnus-uu-decode-uu-view (n)
-d394 1
-a394 1
-(defun gnus-uu-decode-unshar-view (n)
-d435 1
-a435 1
-(defun gnus-uu-digest-mail-forward (n &optional post)
-d480 1
-a480 1
-(defun gnus-uu-digest-post-forward (n)
-d564 1
-a564 1
-(defun gnus-uu-mark-over (score)
-d622 1
-a622 1
-(defun gnus-uu-decode-postscript (n)
-d627 1
-a627 1
-(defun gnus-uu-decode-postscript-view (n)
-@
-
-
-2.38
-log
-@*** empty log message ***
-@
-text
-@d1132 1
-@
-
-
-2.37
-log
-@*** empty log message ***
-@
-text
-@d1880 1
-a1880 1
- (gnus-inews-news))
-d1943 2
-a1944 1
- (gnus-inews-news)))
-@
-
-
-2.36
-log
-@*** empty log message ***
-@
-text
-@d589 2
-a590 1
- (and (setq headers (gnus-summary-article-header (car marked)))
-d612 3
-a614 2
- (unless (memq (setq number (gnus-data-number (car data)))
- gnus-newsgroup-processable)
-d1616 2
-a1617 1
- (unless dir
-a1618 1
- (gnus-message 7 "Deleting directory %s..." dir)
-@
-
-
-2.35
-log
-@*** empty log message ***
-@
-text
-@d1129 1
-d1264 5
-a1268 4
- (let ((subject (mail-header-subject (gnus-summary-article-header article))))
- (if (string-match "[0-9]+ */[0-9]+\\|[0-9]+ * of *[0-9]+"
- subject)
- (substring subject (match-beginning 0) (match-end 0))
-@
-
-
-2.34
-log
-@*** empty log message ***
-@
-text
-@a267 1
-(defvar gnus-uu-generated-file-list nil)
-d364 1
-a364 3
- (gnus-uu-decode-with-method 'gnus-uu-save-article n nil t)
- (setq gnus-uu-generated-file-list
- (delete file gnus-uu-generated-file-list)))
-a442 1
- (gnus-uu-add-file file)
-a670 1
- (gnus-uu-add-file (mapcar (lambda (file) (cdr (assq 'name file))) files))
-d1326 1
-a1326 2
- (push (concat gnus-uu-work-dir gnus-uu-file-name) files)
- (gnus-uu-add-file (car files)))
-a1475 1
- (gnus-uu-add-file totfiles)
-a1486 1
- (gnus-uu-add-file newfiles)
-a1576 1
- (gnus-uu-add-file gnus-uu-work-dir)
-d1589 3
-a1591 3
- (setq pst (process-status (or gnus-uu-uudecode-process "nevair")))
- (if (or (eq pst 'stop) (eq pst 'run))
- (delete-process gnus-uu-uudecode-process)))
-a1594 26
-;; `gnus-uu-check-for-generated-files' deletes any generated files that
-;; hasn't been deleted, if, for instance, the user terminated decoding
-;; with `C-g'.
-(defun gnus-uu-check-for-generated-files ()
- (let (file dirs)
- ;; First delete the generated files.
- (while (setq file (pop gnus-uu-generated-file-list))
- (unless (string-match "/\\.[\\.]?$" file)
- (if (file-directory-p file)
- (push file dirs)
- (when (file-exists-p file)
- (delete-file file)))))
- ;; Then delete the directories.
- (setq dirs (nreverse dirs))
- (while (setq file (pop dirs))
- (delete-directory (directory-file-name file)))))
-
-;; Add a file (or a list of files) to be checked (and deleted if it/they
-;; still exists upon exiting the newsgroup).
-(defun gnus-uu-add-file (file)
- (if (stringp file)
- (setq gnus-uu-generated-file-list
- (cons file gnus-uu-generated-file-list))
- (setq gnus-uu-generated-file-list
- (append file gnus-uu-generated-file-list))))
-
-d1610 17
-d1631 1
-a1631 1
-(add-hook 'gnus-exit-group-hook 'gnus-uu-check-for-generated-files)
-@
-
-
-2.33
-log
-@*** empty log message ***
-@
-text
-@d711 1
-a711 1
- (message "Saved %d file%s" len (if (= len 1) "" "s"))))
-d1150 2
-a1151 2
- (message "Getting article %d%s..."
- article (if (string= part "") "" (concat ", " part))))
-d1227 1
-a1227 1
- (message "No begin part at the beginning")
-d1236 1
-a1236 1
- (message "Wrong type file"))
-d1238 1
-a1238 1
- (message "An error occurred during decoding"))
-d1241 1
-a1241 1
- (message "End of articles reached before end of file")))
-d1355 1
-a1355 1
- (message "gnus-uu: Couldn't uudecode")
-d1453 1
-a1453 1
- (message "Unpacking: %s..." (gnus-uu-command action file-path))
-d1459 1
-a1459 1
- (message "Error during unpacking of archive")
-d1491 1
-a1491 1
- (message "Error during unpacking of %s" file))
-@
-
-
-2.32
-log
-@*** empty log message ***
-@
-text
-@a1722 2
- (if (not (eq (current-buffer) (get-buffer gnus-post-news-buffer)))
- (error "Not in post-news buffer"))
-d1758 1
-a1758 1
- (set-buffer gnus-post-news-buffer)
-a1778 2
- (if (not (eq (current-buffer) (get-buffer gnus-post-news-buffer)))
- (error "Not in post news buffer"))
-d1787 4
-a1790 4
- (let ((gnus-required-headers
- (if (memq 'Message-ID gnus-required-headers)
- gnus-required-headers
- (cons 'Message-ID gnus-required-headers)))
-@
-
-
-2.31
-log
-@*** empty log message ***
-@
-text
-@d479 1
-a479 3
- (if post
- (gnus-forward-using-post)
- (gnus-mail-forward))
-@
-
-
-2.30
-log
-@*** empty log message ***
-@
-text
-@d713 1
-a713 1
- (message "Saved %d file%s" len (if (> len 1) "s" ""))))
-d1136 1
-a1136 1
- article-series)
-d1188 8
-a1195 3
- (push (list (cons 'name result-file)
- (cons 'article article))
- result-files)
-d1281 19
-a1299 7
- (let ((state (list 'ok))
- (process-connection-type nil)
- start-char pst name-beg name-end)
- (save-excursion
- (set-buffer process-buffer)
- (let ((case-fold-search nil)
- (buffer-read-only nil))
-d1301 8
-a1308 1
- (goto-char (point-min))
-d1310 25
-a1334 56
- (if gnus-uu-kill-carriage-return
- (progn
- (while (search-forward "\r" nil t)
- (delete-backward-char 1))
- (goto-char (point-min))))
-
- (if (not (re-search-forward gnus-uu-begin-string nil t))
- (if (not (re-search-forward gnus-uu-body-line nil t))
- (setq state (list 'wrong-type))))
-
- (if (memq 'wrong-type state)
- ()
- (beginning-of-line)
- (setq start-char (point))
-
- (if (looking-at gnus-uu-begin-string)
- (progn
- (setq name-end (match-end 1)
- name-beg (match-beginning 1))
- ;; Remove any non gnus-uu-body-line right after start.
- (forward-line 1)
- (or (looking-at gnus-uu-body-line)
- (gnus-delete-line))
-
- ;; Replace any slashes and spaces in file names before decoding
- (goto-char name-beg)
- (while (re-search-forward "/" name-end t)
- (replace-match ","))
- (goto-char name-beg)
- (while (re-search-forward " " name-end t)
- (replace-match "_"))
- (goto-char name-beg)
- (if (re-search-forward "_*$" name-end t)
- (replace-match ""))
-
- (setq gnus-uu-file-name (buffer-substring name-beg name-end))
- (and gnus-uu-uudecode-process
- (setq pst (process-status
- (or gnus-uu-uudecode-process "nevair")))
- (if (or (eq pst 'stop) (eq pst 'run))
- (progn
- (delete-process gnus-uu-uudecode-process)
- (gnus-uu-unmark-list-of-grabbed t))))
- (if (get-process "*uudecode*")
- (delete-process "*uudecode*"))
- (setq gnus-uu-uudecode-process
- (start-process
- "*uudecode*"
- (get-buffer-create gnus-uu-output-buffer-name)
- "sh" "-c"
- (format "cd %s ; uudecode" gnus-uu-work-dir)))
- (set-process-sentinel
- gnus-uu-uudecode-process 'gnus-uu-uudecode-sentinel)
- (setq state (list 'begin))
- (gnus-uu-add-file (concat gnus-uu-work-dir gnus-uu-file-name)))
- (setq state (list 'middle)))
-d1336 3
-d1340 3
-d1344 15
-a1358 3
- (re-search-backward
- (concat gnus-uu-body-line "\\|" gnus-uu-end-string) nil t)
- (beginning-of-line)
-d1360 13
-a1372 37
- (if (looking-at gnus-uu-end-string)
- (setq state (cons 'end state)))
- (forward-line 1)
-
- (and gnus-uu-uudecode-process
- (setq pst (process-status
- (or gnus-uu-uudecode-process "nevair")))
- (if (or (eq pst 'run) (eq pst 'stop))
- (progn
- (if gnus-uu-correct-stripped-uucode
- (progn
- (gnus-uu-check-correct-stripped-uucode
- start-char (point))
- (goto-char (point-max))
- (re-search-backward
- (concat gnus-uu-body-line "\\|"
- gnus-uu-end-string)
- nil t)
- (forward-line 1)))
-
- (condition-case nil
- (process-send-region gnus-uu-uudecode-process
- start-char (point))
- (error
- (progn
- (delete-process gnus-uu-uudecode-process)
- (message "gnus-uu: Couldn't uudecode")
- ; (sleep-for 2)
- (setq state (list 'wrong-type)))))
-
- (when (memq 'end state)
- (while (memq (process-status gnus-uu-uudecode-process)
- '(open run))
- (accept-process-output gnus-uu-uudecode-process 1))))
- (setq state (list 'wrong-type))))
- (if (not gnus-uu-uudecode-process)
- (setq state (list 'wrong-type)))))
-d1375 1
-a1375 1
- (cons (concat gnus-uu-work-dir gnus-uu-file-name) state)
-d1534 5
-a1538 4
- (let (found beg length)
- (if (not gnus-uu-correct-stripped-uucode)
- ()
- (goto-char start)
-d1540 7
-a1546 7
- (if (re-search-forward " \\|`" end t)
- (progn
- (goto-char start)
- (while (not (eobp))
- (progn
- (if (looking-at "\n") (replace-match ""))
- (forward-line 1))))
-d1548 17
-a1564 17
- (while (not (eobp))
- (if (looking-at (concat gnus-uu-begin-string "\\|"
- gnus-uu-end-string))
- ()
- (if (not found)
- (progn
- (beginning-of-line)
- (setq beg (point))
- (end-of-line)
- (setq length (- (point) beg))))
- (setq found t)s-xmas-force-redisplay nil
-d155 3
-a157 1
-This is ugly, but it works around a bug in `window-displayed-height'.")
-d213 6
-a218 6
- (let ((i 256))
- (while (>= (setq i (1- i)) 127)
- ;; Only modify if the default entry is nil.
- (when (or (not default-table)
- (not (aref default-table i)))
- (aset table i [??]))))
-a221 3
-(defun gnus-xmas-add-hook (hook function &optional append local)
- (add-hook hook function))
-
-a492 1
- (fset 'gnus-add-hook 'gnus-xmas-add-hook)
-d610 3
-a612 3
-(defvar gnus-use-toolbar (if (featurep 'toolbar)
- 'default-toolbar
- nil)
-d616 6
-a621 1
-`right-toolbar', and `left-toolbar'.")
-d731 3
-a733 4
-(unless (find-face 'gnus-x-face)
- (copy-face 'default 'gnus-x-face)
- (set-face-foreground 'gnus-x-face "black")
- (set-face-background 'gnus-x-face "white"))
@
^ permalink raw reply [flat|nested] 4+ messages in thread