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
02f6b354
Commit
02f6b354
authored
Jul 17, 1997
by
Richard M. Stallman
Browse files
Improve text of messages.
parent
037a2961
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
13 deletions
+14
-13
lisp/mail/emacsbug.el
lisp/mail/emacsbug.el
+14
-13
No files found.
lisp/mail/emacsbug.el
View file @
02f6b354
...
...
@@ -73,15 +73,16 @@ Prompts for bug subject. Leaves you in a mail buffer."
(
goto-char
(
point-min
))
(
re-search-forward
(
concat
"^"
(
regexp-quote
mail-header-separator
)
"\n"
))
;; Insert warnings for novice users.
(
insert
"This
mail is
sent to Free Software Foundation,
"
)
(
insert
"This
bug report will be
sent to
the
Free Software Foundation,
\n
"
)
(
let
((
pos
(
point
)))
(
insert
"
NOT TO YOUR SITE MANAGERS
!!"
)
(
insert
"
not to your local site managers
!!"
)
(
put-text-property
pos
(
point
)
'face
'highlight
))
(
insert
"\nPlease write in "
)
(
let
((
pos
(
point
)))
(
insert
"E
NGLISH ONLY
"
)
(
insert
"E
nglish
"
)
(
put-text-property
pos
(
point
)
'face
'highlight
))
(
insert
", recipients are not yet fully multilingualized.\n\n"
)
(
insert
", because the Emacs maintainers do not have
translators to read other languages for them.\n\n"
)
(
insert
"In "
(
emacs-version
)
"\n"
)
(
if
(
and
system-configuration-options
...
...
@@ -171,7 +172,7 @@ Type SPC to scroll through this section and its subsections.")))
(
find-charset-region
(
point-min
)
(
point-max
)))))
(
if
charsets
(
if
(
or
report-emacs-bug-run-tersely
(
y-or-n-p
"Convert
N
on-
English
letters to hexadecimal? "
))
(
y-or-n-p
"Convert
n
on-
ASCII
letters to hexadecimal? "
))
(
save-excursion
(
goto-char
(
point-min
))
(
let
((
enable-multibyte-characters
nil
)
...
...
@@ -181,12 +182,12 @@ Type SPC to scroll through this section and its subsections.")))
(
setq
ch
(
preceding-char
))
(
delete-char
-1
)
(
insert
(
format
"=%02x"
ch
)))))
(
error
"Please
delete non-English chars by yourself
"
))))
(
error
"Please
convert non-ASCII characters to something else
"
))))
;; The last warning for novice users.
(
if
(
or
report-emacs-bug-run-tersely
(
yes-or-no-p
"
Do you surely send this mail to Free Software Foundation
? "
))
"
Send this bug report to the Emacs maintainers
? "
))
;; Just send the current mail.
nil
(
goto-char
(
point-min
))
...
...
@@ -197,13 +198,13 @@ Type SPC to scroll through this section and its subsections.")))
(
kill-local-variable
'mail-send-hook
)
(
with-output-to-temp-buffer
"*Bug Help*"
(
princ
(
substitute-command-keys
"\
You
invoked
the
command
report-emacs-bug
(
\\[
report-emacs-bug
]
)
,
but
refused
to
send
an
e-mail
report
to
Free
Software
Foundation
.
You
invoked
the
command
M-x
report-emacs-bug,
but
you
decided
not
to
mail
the
bug
report
to
the
Emacs
maintainers
.
If
you
want
to
send
the
mail
to
someone
else,
please
insert
the
actual
e-mail
address
after
\"To:
\",
and
send
the
mail
again
by
\\[mail-send-and-exit].
")))
(error "
R
eport-emacs-bug
was
cancelled,
please
read
*Bug
Help*
buffer
"
))
If
you
want
to
mail
it
to
someone
else
instead
,
please
insert
the
proper
e-mail
address
after
\"To:
\",
and
send
the
mail
again
using
\\[mail-send-and-exit].
")))
(error "
M-x
r
eport-emacs-bug
was
cancelled,
please
read
*Bug
Help*
buffer
"
))
))
(
provide
'emacsbug
)
...
...
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