Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-uu.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
561 (interactive "P") 561 (interactive "P")
562 (let ((score (gnus-score-default score)) 562 (let ((score (gnus-score-default score))
563 (data gnus-newsgroup-data)) 563 (data gnus-newsgroup-data))
564 (save-excursion 564 (save-excursion
565 (while data 565 (while data
566 (when (> (or (cdr (assq (gnus-data-number (caar data)) 566 (when (> (or (cdr (assq (gnus-data-number (car data))
567 gnus-newsgroup-scored)) 567 gnus-newsgroup-scored))
568 gnus-summary-default-score 0) 568 gnus-summary-default-score 0)
569 score) 569 score)
570 (gnus-summary-set-process-mark (caar data))) 570 (gnus-summary-set-process-mark (caar data)))
571 (setq data (cdr data)))) 571 (setq data (cdr data))))
1090 ;; `error' if an error occurred 1090 ;; `error' if an error occurred
1091 ;; `begin' if the beginning of an encoded file has been received 1091 ;; `begin' if the beginning of an encoded file has been received
1092 ;; If the list returned contains a `begin', the first element of 1092 ;; If the list returned contains a `begin', the first element of
1093 ;; the list *must* be a string with the file name of the decoded 1093 ;; the list *must* be a string with the file name of the decoded
1094 ;; file. 1094 ;; file.
1095 ;; `end' if the the end of an encoded file has been received 1095 ;; `end' if the end of an encoded file has been received
1096 ;; `middle' if the article was a body part of an encoded file 1096 ;; `middle' if the article was a body part of an encoded file
1097 ;; `wrong-type' if the article was not a part of an encoded file 1097 ;; `wrong-type' if the article was not a part of an encoded file
1098 ;; `ok', which can be used everything is ok 1098 ;; `ok', which can be used everything is ok
1099 1099
1100 (defvar gnus-uu-has-been-grabbed nil) 1100 (defvar gnus-uu-has-been-grabbed nil)
1312 '(run stop))) 1312 '(run stop)))
1313 (delete-process gnus-uu-uudecode-process) 1313 (delete-process gnus-uu-uudecode-process)
1314 (gnus-uu-unmark-list-of-grabbed t)) 1314 (gnus-uu-unmark-list-of-grabbed t))
1315 1315
1316 ;; Start a new uudecoding process. 1316 ;; Start a new uudecoding process.
1317 (setq gnus-uu-uudecode-process 1317 (let ((cdir default-directory))
1318 (start-process 1318 (unwind-protect
1319 "*uudecode*" 1319 (progn
1320 (get-buffer-create gnus-uu-output-buffer-name) 1320 (cd gnus-uu-work-dir)
1321 shell-file-name shell-command-switch 1321 (setq gnus-uu-uudecode-process
1322 (format "cd %s ; uudecode" gnus-uu-work-dir))) 1322 (start-process
1323 "*uudecode*"
1324 (get-buffer-create gnus-uu-output-buffer-name)
1325 shell-file-name shell-command-switch
1326 (format "cd %s %s uudecode" gnus-uu-work-dir
1327 gnus-shell-command-separator))))
1328 (cd cdir)))
1323 (set-process-sentinel 1329 (set-process-sentinel
1324 gnus-uu-uudecode-process 'gnus-uu-uudecode-sentinel) 1330 gnus-uu-uudecode-process 'gnus-uu-uudecode-sentinel)
1325 (setq state (list 'begin)) 1331 (setq state (list 'begin))
1326 (push (concat gnus-uu-work-dir gnus-uu-file-name) files)) 1332 (push (concat gnus-uu-work-dir gnus-uu-file-name) files))
1327 1333
1582 gnus-uu-tmp-alist))))) 1588 gnus-uu-tmp-alist)))))
1583 1589
1584 1590
1585 ;; Kills the temporary uu buffers, kills any processes, etc. 1591 ;; Kills the temporary uu buffers, kills any processes, etc.
1586 (defun gnus-uu-clean-up () 1592 (defun gnus-uu-clean-up ()
1587 (let (buf pst) 1593 (let (buf)
1588 (and gnus-uu-uudecode-process 1594 (and gnus-uu-uudecode-process
1589 (memq (process-status (or gnus-uu-uudecode-process "nevair")) 1595 (memq (process-status (or gnus-uu-uudecode-process "nevair"))
1590 '(stop run)) 1596 '(stop run))
1591 (delete-process gnus-uu-uudecode-process)) 1597 (delete-process gnus-uu-uudecode-process))
1592 (and (setq buf (get-buffer gnus-uu-output-buffer-name)) 1598 (and (setq buf (get-buffer gnus-uu-output-buffer-name))