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
6fd388f3
Commit
6fd388f3
authored
Sep 01, 2005
by
Chong Yidong
Browse files
*** empty log message ***
parent
02de72e9
Changes
5
Hide whitespace changes
Inline
Side-by-side
Showing
5 changed files
with
39 additions
and
10 deletions
+39
-10
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/longlines.el
lisp/longlines.el
+8
-2
lisp/url/ChangeLog
lisp/url/ChangeLog
+9
-0
lisp/url/url-mailto.el
lisp/url/url-mailto.el
+12
-5
lisp/url/url-util.el
lisp/url/url-util.el
+5
-3
No files found.
lisp/ChangeLog
View file @
6fd388f3
2005-09-01 Chong Yidong <cyd@stupidchicken.com>
* longlines.el (longlines-mode): Inhibit read-only when encoding.
Kill local variables when longlines-mode is turned off.
2005-09-01 Stefan Monnier <monnier@iro.umontreal.ca>
* obsolete/lazy-lock.el (lazy-lock) <defgroup>: Move from font-lock.el.
...
...
lisp/longlines.el
View file @
6fd388f3
...
...
@@ -116,6 +116,7 @@ are indicated with a symbol."
(
add-hook
'window-configuration-change-hook
'longlines-window-change-function
nil
t
))
(
let
((
buffer-undo-list
t
)
(
inhibit-read-only
t
)
(
mod
(
buffer-modified-p
)))
;; Turning off undo is OK since (spaces + newlines) is
;; conserved, except for a corner case in
...
...
@@ -136,7 +137,8 @@ are indicated with a symbol."
(
setq
buffer-file-format
(
delete
'longlines
buffer-file-format
))
(
if
longlines-showing
(
longlines-unshow-hard-newlines
))
(
let
((
buffer-undo-list
t
))
(
let
((
buffer-undo-list
t
)
(
inhibit-read-only
t
))
(
longlines-encode-region
(
point-min
)
(
point-max
)))
(
remove-hook
'change-major-mode-hook
'longlines-mode-off
t
)
(
remove-hook
'before-kill-functions
'longlines-encode-region
t
)
...
...
@@ -144,7 +146,11 @@ are indicated with a symbol."
(
remove-hook
'post-command-hook
'longlines-post-command-function
t
)
(
remove-hook
'window-configuration-change-hook
'longlines-window-change-function
t
)
(
kill-local-variable
'fill-column
)))
(
when
longlines-wrap-follows-window-size
(
kill-local-variable
'fill-column
))
(
kill-local-variable
'require-final-newline
)
(
kill-local-variable
'buffer-substring-filters
)
(
kill-local-variable
'use-hard-newlines
)))
(
defun
longlines-mode-off
()
"Turn off longlines mode.
...
...
lisp/url/ChangeLog
View file @
6fd388f3
2005-09-01 Chong Yidong <cyd@stupidchicken.com>
* url-util.el (url-parse-query-string): New optional argument
allow-newlines allows decoding of newlines.
* url-mailto.el (url-mailto): Allow newlines in URL arguments.
Don't lose original "to" value when there is a "to" header.
Remove carriage return characters in message body.
2005-08-24 Juanma Barranquero <lekktu@gmail.com>
* url-news.el (nntp-open-tls-stream, nntp-open-ssl-stream):
...
...
lisp/url/url-mailto.el
View file @
6fd388f3
...
...
@@ -73,7 +73,7 @@
(
setq
headers-start
(
match-end
0
)
to
(
url-unhex-string
(
substring
url
0
(
match-beginning
0
)))
args
(
url-parse-query-string
(
substring
url
headers-start
nil
)
t
))
(
substring
url
headers-start
nil
)
t
t
))
(
setq
to
(
url-unhex-string
url
)))
(
setq
source-url
(
url-view-url
t
))
(
if
(
and
url-request-data
(
not
(
assoc
"subject"
args
)))
...
...
@@ -84,16 +84,23 @@
(
if
(
and
source-url
(
not
(
assoc
"x-url-from"
args
)))
(
setq
args
(
cons
(
list
"x-url-from"
source-url
)
args
)))
(
if
(
assoc
"to"
args
)
(
push
(
cdr
(
assoc
"to"
args
))
to
)
(
setq
args
(
cons
(
list
"to"
to
)
args
)))
(
let
((
tolist
(
assoc
"to"
args
)))
(
if
tolist
(
if
(
not
(
string=
to
""
))
(
setcdr
tolist
(
list
(
concat
to
", "
(
nth
1
tolist
)))))
(
setq
args
(
cons
(
list
"to"
to
)
args
))))
(
setq
subject
(
cdr-safe
(
assoc
"subject"
args
)))
(
if
(
fboundp
url-mail-command
)
(
funcall
url-mail-command
)
(
mail
))
(
while
args
(
if
(
string=
(
caar
args
)
"body"
)
(
progn
(
goto-char
(
point-max
))
(
insert
(
mapconcat
'identity
(
cdar
args
)
"\n"
)))
(
insert
(
mapconcat
#'
(
lambda
(
string
)
(
replace-regexp-in-string
"\r\n"
"\n"
string
))
(
cdar
args
)
"\n"
)))
(
url-mail-goto-field
(
caar
args
))
(
setq
func
(
intern-soft
(
concat
"mail-"
(
caar
args
))))
(
insert
(
mapconcat
'identity
(
cdar
args
)
", "
)))
...
...
lisp/url/url-util.el
View file @
6fd388f3
...
...
@@ -270,7 +270,7 @@ Will not do anything if `url-show-status' is nil."
(
t
(
file-name-directory
file
))))
;;;###autoload
(
defun
url-parse-query-string
(
query
&optional
downcase
)
(
defun
url-parse-query-string
(
query
&optional
downcase
allow-newlines
)
(
let
(
retval
pairs
cur
key
val
)
(
setq
pairs
(
split-string
query
"&"
))
(
while
pairs
...
...
@@ -278,8 +278,10 @@ Will not do anything if `url-show-status' is nil."
pairs
(
cdr
pairs
))
(
if
(
not
(
string-match
"="
cur
))
nil
; Grace
(
setq
key
(
url-unhex-string
(
substring
cur
0
(
match-beginning
0
)))
val
(
url-unhex-string
(
substring
cur
(
match-end
0
)
nil
)))
(
setq
key
(
url-unhex-string
(
substring
cur
0
(
match-beginning
0
))
allow-newlines
))
(
setq
val
(
url-unhex-string
(
substring
cur
(
match-end
0
)
nil
)
allow-newlines
))
(
if
downcase
(
setq
key
(
downcase
key
)))
(
setq
cur
(
assoc
key
retval
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment