Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
c9fc72fa
Commit
c9fc72fa
authored
Sep 02, 2010
by
Lars Magne Ingebrigtsen
Committed by
Katsumi Yamaoka
Sep 02, 2010
Browse files
Delete all trailing white space.
parent
36a806f3
Changes
28
Hide whitespace changes
Inline
Side-by-side
Showing
20 changed files
with
91 additions
and
91 deletions
+91
-91
lisp/gnus/ecomplete.el
lisp/gnus/ecomplete.el
+1
-1
lisp/gnus/gnus-agent.el
lisp/gnus/gnus-agent.el
+4
-4
lisp/gnus/gnus-cache.el
lisp/gnus/gnus-cache.el
+4
-4
lisp/gnus/gnus-dired.el
lisp/gnus/gnus-dired.el
+1
-1
lisp/gnus/gnus-html.el
lisp/gnus/gnus-html.el
+2
-2
lisp/gnus/gnus-range.el
lisp/gnus/gnus-range.el
+3
-3
lisp/gnus/gnus-registry.el
lisp/gnus/gnus-registry.el
+55
-55
lisp/gnus/gnus-start.el
lisp/gnus/gnus-start.el
+1
-1
lisp/gnus/mail-source.el
lisp/gnus/mail-source.el
+2
-2
lisp/gnus/message.el
lisp/gnus/message.el
+2
-2
lisp/gnus/mm-uu.el
lisp/gnus/mm-uu.el
+1
-1
lisp/gnus/nnagent.el
lisp/gnus/nnagent.el
+2
-2
lisp/gnus/nnbabyl.el
lisp/gnus/nnbabyl.el
+2
-2
lisp/gnus/nndoc.el
lisp/gnus/nndoc.el
+1
-1
lisp/gnus/nndraft.el
lisp/gnus/nndraft.el
+1
-1
lisp/gnus/nnfolder.el
lisp/gnus/nnfolder.el
+2
-2
lisp/gnus/nnir.el
lisp/gnus/nnir.el
+1
-1
lisp/gnus/nnmairix.el
lisp/gnus/nnmairix.el
+1
-1
lisp/gnus/nnmh.el
lisp/gnus/nnmh.el
+2
-2
lisp/gnus/nntp.el
lisp/gnus/nntp.el
+3
-3
No files found.
lisp/gnus/ecomplete.el
View file @
c9fc72fa
...
...
@@ -95,7 +95,7 @@
(
let*
((
elems
(
cdr
(
assq
type
ecomplete-database
)))
(
match
(
regexp-quote
match
))
(
candidates
(
sort
(
sort
(
loop
for
(
key
count
time
text
)
in
elems
when
(
string-match
match
text
)
collect
(
list
count
time
text
))
...
...
lisp/gnus/gnus-agent.el
View file @
c9fc72fa
...
...
@@ -1788,7 +1788,7 @@ and that there are no duplicates."
(
while
alist
(
let
((
entry
(
pop
alist
)))
(
when
(
gnus-methods-equal-p
gnus-command-method
(
gnus-info-method
entry
))
(
gnus-agent-flush-group
(
gnus-info-group
entry
)))))))
(
gnus-agent-flush-group
(
gnus-info-group
entry
)))))))
(
defun
gnus-agent-flush-group
(
group
)
"Flush the agent's index files such that the GROUP no longer
...
...
@@ -2162,13 +2162,13 @@ doesn't exist, to valid the overview buffer."
(
gnus-agent-save-alist
gnus-agent-read-agentview
)))
alist
))
((
end-of-file
file-error
)
;; The agentview file is missing.
;; The agentview file is missing.
(
condition-case
nil
;; If the agent directory exists, attempt to perform a brute-force
;; reconstruction of its contents.
(
let*
(
alist
(
file-name-coding-system
nnmail-pathname-coding-system
)
(
file-attributes
(
directory-files-and-attributes
(
file-attributes
(
directory-files-and-attributes
(
gnus-agent-article-name
""
gnus-agent-read-agentview
)
nil
"^[0-9]+$"
t
)))
(
while
file-attributes
...
...
@@ -3258,7 +3258,7 @@ FORCE is equivalent to setting the expiration predicates to true."
(
gnus-message
7
"gnus-agent-expire: Loading overview..."
)
(
nnheader-insert-file-contents
nov-file
)
(
goto-char
(
point-min
))
(
let
(
p
)
(
while
(
<
(
setq
p
(
point
))
(
point-max
))
(
condition-case
nil
...
...
lisp/gnus/gnus-cache.el
View file @
c9fc72fa
...
...
@@ -868,7 +868,7 @@ supported."
(
while
(
setq
file
(
pop
files
))
(
setq
attrs
(
file-attributes
file
))
(
unless
(
nth
0
attrs
)
(
incf
size
(
float
(
nth
7
attrs
)))))))
(
incf
size
(
float
(
nth
7
attrs
)))))))
(
setq
gnus-cache-need-update-total-fetched-for
t
)
...
...
@@ -879,10 +879,10 @@ supported."
(
gnus-cache-with-refreshed-group
group
(
let*
((
entry
(
or
(
gnus-gethash
group
gnus-cache-total-fetched-hashtb
)
(
gnus-sethash
group
(
make-list
2
0
)
(
gnus-sethash
group
(
make-list
2
0
)
gnus-cache-total-fetched-hashtb
)))
(
file-name-coding-system
nnmail-pathname-coding-system
)
(
size
(
or
(
nth
7
(
file-attributes
(
size
(
or
(
nth
7
(
file-attributes
(
or
file
(
gnus-cache-file-name
group
".overview"
))))
0
)))
...
...
@@ -911,7 +911,7 @@ supported."
(
if
entry
(
apply
'+
entry
)
(
let
((
gnus-cache-inhibit-update-total-fetched-for
(
not
no-inhibit
)))
(
+
(
+
(
gnus-cache-update-overview-total-fetched-for
group
nil
)
(
gnus-cache-update-file-total-fetched-for
group
nil
)))))))
...
...
lisp/gnus/gnus-dired.el
View file @
c9fc72fa
...
...
@@ -204,7 +204,7 @@ If ARG is non-nil, open it in a new buffer."
(
setq
method
(
cdr
(
assoc
'viewer
(
car
(
mailcap-mime-info
mime-type
'all
'all
'no-decode
)))))))
(
let
((
view-command
(
mm-mailcap-command
method
file-name
nil
)))
(
message
"viewing via %s"
view-command
)
...
...
lisp/gnus/gnus-html.el
View file @
c9fc72fa
...
...
@@ -84,7 +84,7 @@ fit these criteria."
(
not
(
eq
charset
'ascii
)))
(
mm-decode-coding-region
(
point-min
)
(
point-max
)
charset
))
(
call-process-region
(
point-min
)
(
point-max
)
"w3m"
"w3m"
nil
article-buffer
nil
"-halfdump"
"-no-cookie"
...
...
@@ -328,7 +328,7 @@ fit these criteria."
(
push
(
gnus-html-image-id
url
)
urls
)
(
push
"-o"
urls
)))))
(
let
((
process
(
apply
'start-process
(
apply
'start-process
"images"
nil
"curl"
"-s"
"--create-dirs"
"--location"
...
...
lisp/gnus/gnus-range.el
View file @
c9fc72fa
...
...
@@ -187,7 +187,7 @@ LIST1 and LIST2 have to be sorted over <."
RANGE1 and RANGE2 have to be sorted over <."
(
let*
(
out
(
min1
(
car
range1
))
(
max1
(
if
(
numberp
min1
)
(
max1
(
if
(
numberp
min1
)
(
if
(
numberp
(
cdr
range1
))
(
prog1
(
cdr
range1
)
(
setq
range1
nil
))
min1
)
...
...
@@ -196,8 +196,8 @@ RANGE1 and RANGE2 have to be sorted over <."
(
min2
(
car
range2
))
(
max2
(
if
(
numberp
min2
)
(
if
(
numberp
(
cdr
range2
))
(
prog1
(
cdr
range2
)
(
setq
range2
nil
))
min2
)
(
prog1
(
cdr
range2
)
(
setq
range2
nil
))
min2
)
(
prog1
(
cdr
min2
)
(
setq
min2
(
car
min2
))))))
(
setq
range1
(
cdr
range1
)
...
...
lisp/gnus/gnus-registry.el
View file @
c9fc72fa
;;; gnus-registry.el --- article registry for Gnus
;;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
;;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
;;; Free Software Foundation, Inc.
;; Author: Ted Zlatanov <tzz@lifelogs.com>
...
...
@@ -72,7 +72,7 @@
:version
"22.1"
:group
'gnus
)
(
defvar
gnus-registry-hashtb
(
make-hash-table
(
defvar
gnus-registry-hashtb
(
make-hash-table
:size
256
:test
'equal
)
"*The article registry by Message ID."
)
...
...
@@ -97,7 +97,7 @@
"List of registry marks and their options.
`gnus-registry-mark-article' will offer symbols from this list
for completion.
for completion.
Each entry must have a character to be useful for summary mode
line display and for keyboard shortcuts.
...
...
@@ -121,7 +121,7 @@ display."
:group
'gnus-registry
:type
'symbol
)
(
defcustom
gnus-registry-unfollowed-groups
(
defcustom
gnus-registry-unfollowed-groups
'
(
"delayed$"
"drafts$"
"queue$"
"INBOX$"
)
"List of groups that gnus-registry-split-fancy-with-parent won't return.
The group names are matched, they don't have to be fully
...
...
@@ -206,9 +206,9 @@ considered precious) will not be trimmed."
:group
'gnus-registry
:type
'
(
repeat
symbol
))
(
defcustom
gnus-registry-cache-file
(
nnheader-concat
(
or
gnus-dribble-directory
gnus-home-directory
"~/"
)
(
defcustom
gnus-registry-cache-file
(
nnheader-concat
(
or
gnus-dribble-directory
gnus-home-directory
"~/"
)
".gnus.registry.eld"
)
"File where the Gnus registry will be stored."
:group
'gnus-registry
...
...
@@ -253,7 +253,7 @@ considered precious) will not be trimmed."
(
if
gnus-save-startup-file-via-temp-buffer
(
let
((
coding-system-for-write
gnus-ding-file-coding-system
)
(
standard-output
(
current-buffer
)))
(
gnus-gnus-to-quick-newsrc-format
(
gnus-gnus-to-quick-newsrc-format
t
"gnus registry startup file"
'gnus-registry-alist
)
(
gnus-registry-cache-whitespace
file
)
(
save-buffer
))
...
...
@@ -276,7 +276,7 @@ considered precious) will not be trimmed."
(
unwind-protect
(
progn
(
gnus-with-output-to-file
working-file
(
gnus-gnus-to-quick-newsrc-format
(
gnus-gnus-to-quick-newsrc-format
t
"gnus registry startup file"
'gnus-registry-alist
))
;; These bindings will mislead the current buffer
...
...
@@ -326,7 +326,7 @@ considered precious) will not be trimmed."
(
when
gnus-registry-clean-empty
(
gnus-registry-clean-empty-function
))
;; now trim and clean text properties from the registry appropriately
(
setq
gnus-registry-alist
(
setq
gnus-registry-alist
(
gnus-registry-remove-alist-text-properties
(
gnus-registry-trim
(
gnus-hashtable-to-alist
...
...
@@ -346,7 +346,7 @@ considered precious) will not be trimmed."
(
dolist
(
group
(
gnus-registry-fetch-groups
key
))
(
when
(
gnus-parameter-registry-ignore
group
)
(
gnus-message
10
10
"gnus-registry: deleted ignored group %s from key %s"
group
key
)
(
gnus-registry-delete-group
key
group
)))
...
...
@@ -361,14 +361,14 @@ considered precious) will not be trimmed."
(
gnus-registry-fetch-extra
key
'label
))
(
incf
count
)
(
gnus-registry-delete-id
key
))
(
unless
(
stringp
key
)
(
gnus-message
10
"gnus-registry key %s was not a string, removing"
(
gnus-message
10
"gnus-registry key %s was not a string, removing"
key
)
(
gnus-registry-delete-id
key
))))
gnus-registry-hashtb
)
count
))
...
...
@@ -391,7 +391,7 @@ considered precious) will not be trimmed."
(
defun
gnus-registry-trim
(
alist
)
"Trim alist to size, using gnus-registry-max-entries.
Any entries with extra data (marks, currently) are left alone."
(
if
(
null
gnus-registry-max-entries
)
(
if
(
null
gnus-registry-max-entries
)
alist
; just return the alist
;; else, when given max-entries, trim the alist
(
let*
((
timehash
(
make-hash-table
...
...
@@ -420,25 +420,25 @@ Any entries with extra data (marks, currently) are left alone."
(
push
item
precious-list
)
(
push
item
junk-list
))))
(
sort
(
sort
junk-list
(
lambda
(
a
b
)
(
let
((
t1
(
or
(
cdr
(
gethash
(
car
a
)
timehash
))
(
let
((
t1
(
or
(
cdr
(
gethash
(
car
a
)
timehash
))
'
(
0
0
0
)))
(
t2
(
or
(
cdr
(
gethash
(
car
b
)
timehash
))
(
t2
(
or
(
cdr
(
gethash
(
car
b
)
timehash
))
'
(
0
0
0
))))
(
time-less-p
t1
t2
))))
;; we use the return value of this setq, which is the trimmed alist
(
setq
alist
(
append
precious-list
(
nthcdr
trim-length
junk-list
))))))
(
defun
gnus-registry-action
(
action
data-header
from
&optional
to
method
)
(
let*
((
id
(
mail-header-id
data-header
))
(
subject
(
gnus-string-remove-all-properties
(
gnus-registry-simplify-subject
(
mail-header-subject
data-header
))))
(
sender
(
gnus-string-remove-all-properties
(
sender
(
gnus-string-remove-all-properties
(
mail-header-from
data-header
)))
(
from
(
gnus-group-guess-full-name-from-command-method
from
))
(
to
(
if
to
(
gnus-group-guess-full-name-from-command-method
to
)
nil
))
...
...
@@ -489,7 +489,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
(
let*
((
refstr
(
or
(
message-fetch-field
"references"
)
""
))
; guaranteed
(
reply-to
(
message-fetch-field
"in-reply-to"
))
; may be nil
;; now, if reply-to is valid, append it to the References
(
refstr
(
if
reply-to
(
refstr
(
if
reply-to
(
concat
refstr
" "
reply-to
)
refstr
))
;; these may not be used, but the code is cleaner having them up here
...
...
@@ -517,8 +517,8 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
9
"%s is looking for matches for reference %s from [%s]"
log-agent
reference
refstr
)
(
dolist
(
group
(
gnus-registry-fetch-groups
reference
(
dolist
(
group
(
gnus-registry-fetch-groups
reference
gnus-registry-max-track-groups
))
(
when
(
and
group
(
gnus-registry-follow-group-p
group
))
(
gnus-message
...
...
@@ -528,9 +528,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
(
push
group
found
))))
;; filter the found groups and return them
;; the found groups are the full groups
(
setq
found
(
gnus-registry-post-process-groups
(
setq
found
(
gnus-registry-post-process-groups
"references"
refstr
found
found
)))
;; else: there were no matches, now try the extra tracking by sender
((
and
(
gnus-registry-track-sender-p
)
sender
...
...
@@ -543,7 +543,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
matches
)
(
when
(
and
this-sender
(
equal
sender
this-sender
))
(
let
((
groups
(
gnus-registry-fetch-groups
(
let
((
groups
(
gnus-registry-fetch-groups
key
gnus-registry-max-track-groups
)))
(
dolist
(
group
groups
)
...
...
@@ -558,9 +558,9 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
gnus-registry-hashtb
)
;; filter the found groups and return them
;; the found groups are NOT the full groups
(
setq
found
(
gnus-registry-post-process-groups
(
setq
found
(
gnus-registry-post-process-groups
"sender"
sender
found
found-full
)))
;; else: there were no matches, now try the extra tracking by subject
((
and
(
gnus-registry-track-subject-p
)
subject
...
...
@@ -572,7 +572,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
matches
)
(
when
(
and
this-subject
(
equal
subject
this-subject
))
(
let
((
groups
(
gnus-registry-fetch-groups
(
let
((
groups
(
gnus-registry-fetch-groups
key
gnus-registry-max-track-groups
)))
(
dolist
(
group
groups
)
...
...
@@ -587,7 +587,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details."
gnus-registry-hashtb
)
;; filter the found groups and return them
;; the found groups are NOT the full groups
(
setq
found
(
gnus-registry-post-process-groups
(
setq
found
(
gnus-registry-post-process-groups
"subject"
subject
found
found-full
))))
;; after the (cond) we extract the actual value safely
(
car-safe
found
)))
...
...
@@ -627,7 +627,7 @@ necessary."
(
lambda
(
a
b
)
(
>
(
gethash
a
freq
0
)
(
gethash
b
freq
0
)))))))))
(
if
gnus-registry-use-long-group-names
(
dolist
(
group
groups
)
(
let
((
m1
(
gnus-find-method-for-group
group
))
...
...
@@ -708,8 +708,8 @@ Consults `gnus-registry-unfollowed-groups' and
(
unless
(
member
gnus-newsgroup-name
(
gnus-registry-fetch-groups
id
))
(
gnus-message
9
"Registry: Registering article %d with group %s"
article
gnus-newsgroup-name
)
(
gnus-registry-add-group
id
(
gnus-registry-add-group
id
gnus-newsgroup-name
(
gnus-registry-fetch-simplified-message-subject-fast
article
)
(
gnus-registry-fetch-sender-fast
article
)))))))
...
...
@@ -785,18 +785,18 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
(
shortcut
(
if
remove
(
upcase
shortcut
)
shortcut
)))
(
unintern
function-name
)
(
eval
`
(
defun
`
(
defun
;; function name
,
(
intern
function-name
)
,
(
intern
function-name
)
;; parameter definition
(
&rest
articles
)
;; documentation
,
(
format
,
(
format
"%s the %s mark over process-marked ARTICLES."
(
upcase-initials
variant-name
)
mark
)
;; interactive definition
(
interactive
(
interactive
(
gnus-summary-work-articles
current-prefix-arg
))
;; actual code
...
...
@@ -807,49 +807,49 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
;; now the user is asked if gnus-registry-install is 'ask
(
when
(
gnus-registry-install-p
)
(
gnus-registry-set-article-mark-internal
(
gnus-registry-set-article-mark-internal
;; all this just to get the mark, I must be doing it wrong
(
intern
,
(
symbol-name
mark
))
articles
,
remove
t
)
(
gnus-message
9
9
"Applying mark %s to %d articles"
,
(
symbol-name
mark
)
(
length
articles
))
(
dolist
(
article
articles
)
(
gnus-summary-update-article
(
gnus-summary-update-article
article
(
assoc
article
(
gnus-data-list
nil
)))))))
(
push
(
intern
function-name
)
keys-plist
)
(
push
shortcut
keys-plist
)
(
push
shortcut
keys-plist
)
(
push
(
vector
(
format
"%s %s"
(
upcase-initials
variant-name
)
(
symbol-name
mark
))
(
intern
function-name
)
t
)
gnus-registry-misc-menus
)
(
gnus-message
9
"Defined mark handling function %s"
9
"Defined mark handling function %s"
function-name
))))))
(
gnus-define-keys-1
'
(
gnus-registry-mark-map
"M"
gnus-summary-mark-map
)
keys-plist
)
(
add-hook
'gnus-summary-menu-hook
(
lambda
()
(
easy-menu-add-item
(
easy-menu-add-item
gnus-summary-misc-menu
nil
nil
(
cons
"Registry Marks"
gnus-registry-misc-menus
))))))
;;; use like this:
;;; (defalias 'gnus-user-format-function-M
;;; (defalias 'gnus-user-format-function-M
;;; 'gnus-registry-user-format-function-M)
(
defun
gnus-registry-user-format-function-M
(
headers
)
(
let*
((
id
(
mail-header-message-id
headers
))
(
marks
(
when
id
(
gnus-registry-fetch-extra-marks
id
))))
(
apply
'concat
(
mapcar
(
lambda
(
mark
)
(
let
((
c
(
let
((
c
(
plist-get
(
cdr-safe
(
cdr-safe
(
assoc
mark
gnus-registry-marks
))
:char
)))
(
if
c
...
...
@@ -859,9 +859,9 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
(
defun
gnus-registry-read-mark
()
"Read a mark name from the user with completion."
(
let
((
mark
(
gnus-completing-read-with-default
(
let
((
mark
(
gnus-completing-read-with-default
(
symbol-name
gnus-registry-default-mark
)
"Label"
"Label"
(
mapcar
(
lambda
(
x
)
; completion list
(
cons
(
symbol-name
(
car-safe
x
))
(
car-safe
x
)))
gnus-registry-marks
))))
...
...
@@ -896,7 +896,7 @@ Uses `gnus-registry-marks' to find what shortcuts to install."
(
gnus-message
1
"%s mark %s with message ID %s, resulting in %S"
(
if
remove
"Removing"
"Adding"
)
mark
id
new-marks
))
(
apply
'gnus-registry-store-extra-marks
; set the extra marks
id
; for the message ID
new-marks
)))))
...
...
@@ -1007,7 +1007,7 @@ The message must have at least one group name."
"Put a specific entry in the extras field of the registry entry for id."
(
let*
((
extra
(
gnus-registry-fetch-extra
id
))
;; all the entries except the one for `key'
(
the-rest
(
gnus-assq-delete-all
key
(
gnus-registry-fetch-extra
id
)))
(
the-rest
(
gnus-assq-delete-all
key
(
gnus-registry-fetch-extra
id
)))
(
alist
(
if
value
(
gnus-registry-remove-alist-text-properties
(
cons
(
cons
key
value
)
...
...
@@ -1034,7 +1034,7 @@ Returns the first place where the trail finds a group name."
(
dolist
(
crumb
trail
)
(
when
(
stringp
crumb
)
;; push the group name into the list
(
setq
(
setq
groups
(
cons
(
if
(
or
(
not
(
stringp
crumb
))
gnus-registry-use-long-group-names
)
...
...
lisp/gnus/gnus-start.el
View file @
c9fc72fa
...
...
@@ -765,7 +765,7 @@ prompt the user for the name of an NNTP server to use."
(
when
gnus-select-method
(
push
(
cons
"native"
gnus-select-method
)
gnus-predefined-server-alist
))
(
if
gnus-agent
(
gnus-agentize
))
...
...
lisp/gnus/mail-source.el
View file @
c9fc72fa
...
...
@@ -466,10 +466,10 @@ the `mail-source-keyword-map' variable."
;; 1) the auth-sources user and password override everything
;; 2) it avoids macros, so it's cleaner
;; 3) it falls through to the mail-sources and then default values
(
cond
(
cond
((
and
(
eq
keyword
:user
)
(
setq
user-auth
(
setq
user-auth
(
nth
0
(
auth-source-user-or-password
'
(
"login"
"password"
)
;; this is "host" in auth-sources
...
...
lisp/gnus/message.el
View file @
c9fc72fa
...
...
@@ -6687,7 +6687,7 @@ want to get rid of this query permanently.")))
(setq recipients (delq recip recipients))))))))
(setq recipients (message-prune-recipients recipients))
;; Build the header alist. Allow the user to be asked whether
;; or not to reply to all recipients in a wide reply.
(setq follow-to (list (cons 'To (cdr (pop recipients)))))
...
...
@@ -6704,7 +6704,7 @@ want to get rid of this query permanently.")))
(defun message-prune-recipients (recipients)
(dolist (rule message-prune-recipient-rules)
(let ((match (car rule))
dup-match
dup-match
address)
(dolist (recipient recipients)
(setq address (car recipient))
...
...
lisp/gnus/mm-uu.el
View file @
c9fc72fa
...
...
@@ -441,7 +441,7 @@ apply the face `mm-uu-extract'."
(
defun
mm-uu-yenc-extract
()
;; This might not be exactly correct, but we sure can't get the
;; binary data from the article buffer, since that's already in a
;; non-binary charset. So get it from the original article buffer.
;; non-binary charset. So get it from the original article buffer.
(
mm-make-handle
(
with-current-buffer
gnus-original-article-buffer
(
mm-uu-copy-to-buffer
start-point
end-point
))
(
list
(
or
(
and
file-name
...
...
lisp/gnus/nnagent.el
View file @
c9fc72fa
...
...
@@ -121,7 +121,7 @@
(
deffoo
nnagent-request-set-mark
(
group
action
server
)
(
mm-with-unibyte-buffer
(
insert
"(gnus-agent-synchronize-group-flags \""
group
group
"\" '"
)
(
gnus-pp
action
)
(
insert
" \""
...
...
@@ -151,7 +151,7 @@
;; Assume that articles with smaller numbers than the first one
;; Agent knows are gone.
(
setq
first
(
caar
gnus-agent-article-alist
))
(
when
first
(
when
first
(
while
(
and
arts
(
<
(
car
arts
)
first
))
(
pop
arts
)))
(
set-buffer
nntp-server-buffer
)
...
...
lisp/gnus/nnbabyl.el
View file @
c9fc72fa
...
...
@@ -344,7 +344,7 @@
(
while
(
re-search-backward
"^X-Gnus-Newsgroup: "
beg
t
)
(
delete-region
(
point
)
(
progn
(
forward-line
1
)
(
point
)))))
(
when
nnmail-cache-accepted-message-ids
(
nnmail-cache-insert
(
nnmail-fetch-field
"message-id"
)
(
nnmail-cache-insert
(
nnmail-fetch-field
"message-id"
)
group
(
nnmail-fetch-field
"subject"
)
(
nnmail-fetch-field
"from"
)))
...
...
@@ -363,7 +363,7 @@
(
insert-buffer-substring
buf
)
(
when
last
(
when
nnmail-cache-accepted-message-ids
(
nnmail-cache-insert
(
nnmail-fetch-field
"message-id"
)
(
nnmail-cache-insert
(
nnmail-fetch-field
"message-id"
)
group
(
nnmail-fetch-field
"subject"
)
(
nnmail-fetch-field
"from"
)))
...
...
lisp/gnus/nndoc.el
View file @
c9fc72fa
...
...
@@ -100,7 +100,7 @@ from the document.")
(
head-end
.
"^\t"
)
(
generate-head-function
.
nndoc-generate-clari-briefs-head
)
(
article-transform-function
.
nndoc-transform-clari-briefs
))
(
standard-digest
(
first-article
.
,
(
concat
"^"
(
make-string
70
?-
)
"\n *\n+"
))
(
article-begin
.
,
(
concat
"^\n"
(
make-string
30
?-
)
"\n *\n+"
))
...
...
lisp/gnus/nndraft.el
View file @
c9fc72fa
...
...
@@ -202,7 +202,7 @@ are generated if and only if they are also in `message-draft-headers'.")
'nnmh-request-group
(
list
group
server
dont-check
)))
(
deffoo
nndraft-request-move-article
(
article
group
server
accept-form
(
deffoo
nndraft-request-move-article
(
article
group
server
accept-form
&optional
last
move-is-internal
)
(
nndraft-possibly-change-group
group
)
(
let
((
buf
(
get-buffer-create
" *nndraft move*"
))
...
...
lisp/gnus/nnfolder.el
View file @
c9fc72fa
...
...
@@ -494,7 +494,7 @@ the group. Then the marks file will be regenerated properly by Gnus.")
(
nnfolder-save-active
nnfolder-group-alist
nnfolder-active-file
)
(
gnus-sorted-difference
articles
(
nreverse
deleted-articles
)))))
(
deffoo
nnfolder-request-move-article
(
article
group
server
accept-form
(
deffoo
nnfolder-request-move-article
(
article
group
server
accept-form
&optional
last
move-is-internal
)
(
save-excursion
(
let
((
buf
(
get-buffer-create
" *nnfolder move*"
))
...
...
@@ -552,7 +552,7 @@ the group. Then the marks file will be regenerated properly by Gnus.")
(
while
(
re-search-backward
(
concat
"^"
nnfolder-article-marker
)
nil
t
)
(
delete-region
(
point
)
(
progn
(
forward-line
1
)
(
point
))))
(
when
nnmail-cache-accepted-message-ids
(
nnmail-cache-insert
(
nnmail-fetch-field
"message-id"
)
(
nnmail-cache-insert
(
nnmail-fetch-field
"message-id"
)
group
(
nnmail-fetch-field
"subject"
)
(
nnmail-fetch-field
"from"
)))
...
...
lisp/gnus/nnir.el
View file @
c9fc72fa
...
...
@@ -792,7 +792,7 @@ and show thread that contains this article."
(
setq
novitem
(
funcall
nnir-get-article-nov-override-function
artitem
))
;; else, set novitem through nnheader-parse-nov/nnheader-parse-head
(
case
(
setq
foo
(
gnus-retrieve-headers
(
list
artno
)
(
case
(
setq
foo
(
gnus-retrieve-headers
(
list
artno
)
artfullgroup
nil
))
(
nov
(
goto-char
(
point-min
))
...
...
lisp/gnus/nnmairix.el
View file @
c9fc72fa
...
...
@@ -556,7 +556,7 @@ Other back ends might or might not work.")
(
mapcar
(
lambda
(
arg
)
(
-
arg
numcorr
))
articles
)))
(
setq
rval
(
setq
rval
(
if
(
eq
nnmairix-backend
'nnimap
)
(
let
((
gnus-nov-is-evil
t
))
(
nnmairix-call-backend
...
...
lisp/gnus/nnmh.el
View file @
c9fc72fa
...
...
@@ -287,7 +287,7 @@ as unread by Gnus.")
(
deffoo
nnmh-close-group
(
group
&optional
server
)
t
)
(
deffoo
nnmh-request-move-article
(
article
group
server
accept-form
(
deffoo
nnmh-request-move-article
(
article
group
server
accept-form
&optional
last
move-is-internal
)
(
let
((
buf
(
get-buffer-create
" *nnmh move*"
))