Merge from emacs--devo--0
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
This commit is contained in:
Miles Bader
commit
d29ee6b1a1
171 changed files with 12391 additions and 756 deletions
|
|
@ -1,3 +1,7 @@
|
|||
2007-12-09 Andreas Schwab <schwab@suse.de>
|
||||
|
||||
* configure.in: D-Bus is not enabled by default.
|
||||
|
||||
2007-12-06 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
|
||||
|
||||
* configure.in: Add AC_CONFIG_SRCDIR which was lost in the previous
|
||||
|
|
|
|||
46
admin/CPP-DEFINES
Normal file
46
admin/CPP-DEFINES
Normal file
|
|
@ -0,0 +1,46 @@
|
|||
Here are some of the cpp macros used, together with some short explanation
|
||||
of their use. Feel free to add more macros and more categories.
|
||||
|
||||
** Distinguishing OSes **
|
||||
|
||||
MAC_OS Compiling for some version of Mac OS?
|
||||
MAC_OS8 Compiling for Mac OS version 8. Requires MAC_OS?
|
||||
MAC_OSX Compiling for Mac OS X? Is that also valid for Darwin?
|
||||
MAC_OS_X ?? Apparently only used once in mac.c.
|
||||
CYGWIN Compiling the Cygwin port.
|
||||
__CYGWIN__ Ditto
|
||||
MSDOS Compiling the MS-DOS port.
|
||||
__MSDOS__ Ditto.
|
||||
__DJGPP__ Major version number of the DJGPP library for the DOS port.
|
||||
__DJGPP_MINOR__ Minor version number of the DJGPP library.
|
||||
__GO32__ Compiling the DOS port with DJGPP v1.x (obsolete).
|
||||
DOS_NT Compiling for either the MS-DOS or native MS-Windows port.
|
||||
WINDOWSNT Compiling the native MS-Windows (W32) port.
|
||||
__MINGW32__ Compiling the W32 port with the MinGW port of GCC.
|
||||
_MSC_VER Compiling the W32 port with the Microsoft C compiler.
|
||||
|
||||
** Distinguishing GUIs **
|
||||
|
||||
HAVE_NTGUI Use the native W32 GUI for windows, frames, menus&scrollbars.
|
||||
HAVE_CARBON Compile support for the Carbon GUI. Requires MAC_OS?
|
||||
HAVE_X11 Compile support for the X11 GUI.
|
||||
HAVE_X_WINDOWS Compile support for X Window system
|
||||
X11 ?? Makefile.in suggests it's equivalent to HAVE_X11
|
||||
USE_LUCID Use the Lucid toolkit for menus&scrollbars. Requires HAVE_X11.
|
||||
USE_MOTIF Use the Motif toolkit for menus&scrollbars. Requires HAVE_X11.
|
||||
USE_GTK Use the Gtk toolkit for menus&scrollbars. Requires HAVE_X11.
|
||||
|
||||
** Frame types **
|
||||
|
||||
FRAME_TERMCAP_P A tty (character terminal) frame.
|
||||
FRAME_X_P A frame on X Window system.
|
||||
FRAME_MSDOS_P An MS-DOS frame (used only by the DOS port).
|
||||
FRAME_MAC_P A Mac frame.
|
||||
FRAME_W32_P A frame using native MS-Windows GUI.
|
||||
FRAME_WINDOW_P A GUI frame (like X, w32, etc.)
|
||||
|
||||
** Compile-time options **
|
||||
REL_ALLOC Compile in the relocatable memory allocator ralloc.c.
|
||||
SYSTEM_MALLOC Use the system library's malloc.
|
||||
|
||||
# arch-tag: bc80061a-1168-4911-9766-46aaf2640250
|
||||
|
|
@ -1,3 +1,13 @@
|
|||
2007-12-10 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* CPP-DEFINES: New file.
|
||||
|
||||
2007-12-08 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* FOR-RELEASE: Remove "window-system in face definition" [of
|
||||
gnus-treat-emphasize]. Remove "Gnus archive groups". Add comment
|
||||
on gnus-dired.el.
|
||||
|
||||
2007-12-05 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* admin.el (set-version): Handle configure.in. Adapt for doc/
|
||||
|
|
|
|||
|
|
@ -91,16 +91,8 @@ http://lists.gnu.org/archive/html/emacs-devel/2007-05/msg01339.html
|
|||
|
||||
** rms: gnus-dired.el is a mistake. Those features should not
|
||||
be part of Gnus. They should be moved to some other part of Emacs.
|
||||
|
||||
** sdl.web@gmail.com, 28 Oct: window-system in face definition
|
||||
|
||||
** Gnus archive groups are not shown at all if they are not at the default level.
|
||||
Fixed in Gnus CVS, but the patch has not been synched to Emacs yet:
|
||||
http://thread.gmane.org/gmane.emacs.gnus.general/65622/focus=65757
|
||||
|
||||
** Extra question asked when doing a reply in Gnus
|
||||
Fixed in Gnus CVS, but the patch has not been synched to Emacs yet:
|
||||
http://thread.gmane.org/gmane.emacs.gnus.general/65627/65768
|
||||
rsteib: Gnus dependencies in `gnus-dired.el' (and `mailcap.el') have been
|
||||
minimized. I don't know what is left to do here.
|
||||
|
||||
** sdl.web@gmail.com, 30 Oct: ps-lpr-switches has no effect
|
||||
|
||||
|
|
@ -115,6 +107,10 @@ http://lists.gnu.org/archive/html/emacs-devel/2007-10/msg02052.html
|
|||
** Fix or document the shortcoming of easymenu and :suffix.
|
||||
http://lists.gnu.org/archive/html/emacs-devel/2007-11/msg01857.html
|
||||
|
||||
** Fix problem with mode-name in SGML mode.
|
||||
If mode-name stays non-string, add NEWS entry and doc fix.
|
||||
http://lists.gnu.org/archive/html/emacs-devel/2007-11/msg02048.html
|
||||
|
||||
* DOCUMENTATION
|
||||
|
||||
** Check the Emacs Tutorial.
|
||||
|
|
|
|||
2
configure
vendored
2
configure
vendored
|
|
@ -1370,7 +1370,7 @@ Optional Packages:
|
|||
--without-xaw3d don't use Xaw3d
|
||||
--without-xim don't use X11 XIM
|
||||
--without-carbon don't use Carbon GUI on Mac OS X
|
||||
--without-dbus don't use D-Bus
|
||||
--with-dbus use D-Bus
|
||||
--with-x use the X Window System
|
||||
|
||||
Some influential environment variables:
|
||||
|
|
|
|||
|
|
@ -121,7 +121,7 @@ EMACS_ARG_N([toolkit-scroll-bars],[don't use Motif or Xaw3d scroll bars])
|
|||
EMACS_ARG_N([xaw3d],[don't use Xaw3d])
|
||||
EMACS_ARG_N([xim],[don't use X11 XIM])
|
||||
EMACS_ARG_N([carbon],[don't use Carbon GUI on Mac OS X])
|
||||
EMACS_ARG_N([dbus],[don't use D-Bus])
|
||||
EMACS_ARG_Y([dbus],[use D-Bus])
|
||||
|
||||
AC_ARG_ENABLE(carbon-app,
|
||||
[AS_HELP_STRING([--enable-carbon-app@<:@=DIR@:>@],
|
||||
|
|
|
|||
|
|
@ -1,3 +1,10 @@
|
|||
2007-12-14 Martin Rudalics <rudalics@gmx.at>
|
||||
|
||||
* nonascii.texi (Encoding and I/O): Reword to avoid saying
|
||||
"visit the current buffer".
|
||||
|
||||
* os.texi (System Interface): Fix typo.
|
||||
|
||||
2007-12-04 Richard Stallman <rms@gnu.org>
|
||||
|
||||
* objects.texi (Symbol Type): Fix typo.
|
||||
|
|
|
|||
|
|
@ -727,15 +727,15 @@ operation finishes the job of choosing a coding system. Very often
|
|||
you will want to find out afterwards which coding system was chosen.
|
||||
|
||||
@defvar buffer-file-coding-system
|
||||
This buffer-local variable records the coding system that was used to visit
|
||||
the current buffer. It is used for saving the buffer, and for writing part
|
||||
of the buffer with @code{write-region}. If the text to be written
|
||||
cannot be safely encoded using the coding system specified by this
|
||||
variable, these operations select an alternative encoding by calling
|
||||
the function @code{select-safe-coding-system} (@pxref{User-Chosen
|
||||
Coding Systems}). If selecting a different encoding requires to ask
|
||||
the user to specify a coding system, @code{buffer-file-coding-system}
|
||||
is updated to the newly selected coding system.
|
||||
This buffer-local variable records the coding system used for saving the
|
||||
buffer and for writing part of the buffer with @code{write-region}. If
|
||||
the text to be written cannot be safely encoded using the coding system
|
||||
specified by this variable, these operations select an alternative
|
||||
encoding by calling the function @code{select-safe-coding-system}
|
||||
(@pxref{User-Chosen Coding Systems}). If selecting a different encoding
|
||||
requires to ask the user to specify a coding system,
|
||||
@code{buffer-file-coding-system} is updated to the newly selected coding
|
||||
system.
|
||||
|
||||
@code{buffer-file-coding-system} does @emph{not} affect sending text
|
||||
to a subprocess.
|
||||
|
|
|
|||
|
|
@ -21,8 +21,8 @@ pertaining to the terminal and the screen.
|
|||
* System Environment:: Distinguish the name and kind of system.
|
||||
* User Identification:: Finding the name and user id of the user.
|
||||
* Time of Day:: Getting the current time.
|
||||
* Time Conversion:: Converting a time from numeric form
|
||||
to calendrical data, and vice versa).
|
||||
* Time Conversion:: Converting a time from numeric form to
|
||||
calendrical data and vice versa.
|
||||
* Time Parsing:: Converting a time from numeric form to text
|
||||
and vice versa.
|
||||
* Processor Run Time:: Getting the run time used by Emacs.
|
||||
|
|
|
|||
|
|
@ -1,3 +1,13 @@
|
|||
2007-12-14 Sven Joachim <svenjoac@gmx.de>
|
||||
|
||||
* gnus.texi (Score Variables): Fix typo.
|
||||
|
||||
2007-12-07 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
* dbus.texi (Synchronous Methods): Adapt dbus-call-method.
|
||||
(Signals): Adapt dbus-send-signal and dbus-register-signal.
|
||||
(Errors and Events): Adapt dbus-event.
|
||||
|
||||
2007-12-03 Lars Magne Ingebrigtsen <larsi@gnus.org>
|
||||
|
||||
* gnus.texi (Other Files): Add the yenc command.
|
||||
|
|
|
|||
|
|
@ -318,7 +318,7 @@ which carries the input parameters to the object owning the method to
|
|||
be called, and a reply message returning the resulting output
|
||||
parameters from the object.
|
||||
|
||||
@defun dbus-call-method bus method service path interface &rest args
|
||||
@defun dbus-call-method bus service path interface method &rest args
|
||||
This function calls @var{method} on the D-Bus @var{bus}. @var{bus} is
|
||||
either the symbol @code{:system} or the symbol @code{:session}.
|
||||
|
||||
|
|
@ -336,8 +336,8 @@ Lisp objects, according to the type conversion rules described in
|
|||
|
||||
@example
|
||||
(dbus-call-method
|
||||
:session "GetKeyField" "org.gnome.seahorse"
|
||||
"/org/gnome/seahorse/keys/openpgp" "org.gnome.seahorse.Keys"
|
||||
:session "org.gnome.seahorse" "/org/gnome/seahorse/keys/openpgp"
|
||||
"org.gnome.seahorse.Keys" "GetKeyField"
|
||||
"openpgp:657984B8C7A966DD" "simple-name")
|
||||
|
||||
@result{} (t ("Philip R. Zimmermann"))
|
||||
|
|
@ -349,8 +349,9 @@ object. Example:
|
|||
|
||||
@example
|
||||
(dbus-call-method
|
||||
:system "GetPropertyString" "org.freedesktop.Hal"
|
||||
"/org/freedesktop/Hal/devices/computer" "org.freedesktop.Hal.Device"
|
||||
:system "org.freedesktop.Hal"
|
||||
"/org/freedesktop/Hal/devices/computer"
|
||||
"org.freedesktop.Hal.Device" "GetPropertyString"
|
||||
"system.kernel.machine")
|
||||
|
||||
@result{} "i686"
|
||||
|
|
@ -368,14 +369,14 @@ emulate the @code{lshal} command on GNU/Linux systems:
|
|||
@example
|
||||
(dolist (device
|
||||
(dbus-call-method
|
||||
:system "GetAllDevices" "org.freedesktop.Hal"
|
||||
:system "org.freedesktop.Hal"
|
||||
"/org/freedesktop/Hal/Manager"
|
||||
"org.freedesktop.Hal.Manager"))
|
||||
"org.freedesktop.Hal.Manager" "GetAllDevices"))
|
||||
(message "\nudi = %s" device)
|
||||
(dolist (properties
|
||||
(dbus-call-method
|
||||
:system "GetAllProperties" "org.freedesktop.Hal"
|
||||
device "org.freedesktop.Hal.Device"))
|
||||
:system "org.freedesktop.Hal" device
|
||||
"org.freedesktop.Hal.Device" "GetAllProperties"))
|
||||
(message " %s = %S"
|
||||
(car properties) (or (caar (cdr properties)) ""))))
|
||||
|
||||
|
|
@ -406,7 +407,7 @@ emulate the @code{lshal} command on GNU/Linux systems:
|
|||
Signals are broadcast messages. They carry input parameters, which
|
||||
are received by all objects which have registered for such a signal.
|
||||
|
||||
@defun dbus-send-signal bus signal service path interface &rest args
|
||||
@defun dbus-send-signal bus service path interface signal &rest args
|
||||
This function is similar to @code{dbus-call-method}. The difference
|
||||
is, that there are no returning output parameters.
|
||||
|
||||
|
|
@ -425,12 +426,12 @@ Conversion}. Example:
|
|||
|
||||
@example
|
||||
(dbus-send-signal
|
||||
:session "FileModified" "org.gnu.Emacs" "/org/gnu/Emacs"
|
||||
"org.gnu.Emacs.FileManager" "/home/albinus/.emacs")
|
||||
:session "org.gnu.Emacs" "/org/gnu/Emacs"
|
||||
"org.gnu.Emacs.FileManager" "FileModified" "/home/albinus/.emacs")
|
||||
@end example
|
||||
@end defun
|
||||
|
||||
@defun dbus-register-signal bus signal service path interface handler
|
||||
@defun dbus-register-signal bus service path interface signal handler
|
||||
With this function, an application registers for @var{signal} on the
|
||||
D-Bus @var{bus}.
|
||||
|
||||
|
|
@ -461,13 +462,15 @@ received. It must accept as arguments the output parameters
|
|||
(defun my-dbus-signal-handler (device)
|
||||
(message "Device %s added" device))
|
||||
|
||||
@result{} my-dbus-signal-handler
|
||||
|
||||
(dbus-register-signal
|
||||
:system "DeviceAdded"
|
||||
(dbus-get-name-owner :system "org.freedesktop.Hal")
|
||||
"/org/freedesktop/Hal/Manager" "org.freedesktop.Hal.Manager"
|
||||
:system "org.freedesktop.Hal" "/org/freedesktop/Hal/Manager"
|
||||
"org.freedesktop.Hal.Manager" "DeviceAdded"
|
||||
'my-dbus-signal-handler)
|
||||
|
||||
@result{} (:system "org.freedesktop.Hal.Manager" "DeviceAdded")
|
||||
@result{} (:system ":1.3" "/org/freedesktop/Hal/Manager"
|
||||
"org.freedesktop.Hal.Manager" "DeviceAdded")
|
||||
@end example
|
||||
|
||||
As we know from the inspection data of interface
|
||||
|
|
@ -503,13 +506,9 @@ Incoming D-Bus messages are handled as Emacs events (see @pxref{Misc
|
|||
Events, , , elisp}). The generated event has this form:
|
||||
|
||||
@example
|
||||
(dbus-event @var{handler} @var{bus} @var{service} @var{path} @var{interface} @var{member} &rest @var{args})
|
||||
(dbus-event @var{bus} @var{service} @var{path} @var{interface} @var{member} @var{handler} &rest @var{args})
|
||||
@end example
|
||||
|
||||
@var{handler} is the callback function which has been registered for
|
||||
this signal (see @pxref{Signals}). When a @code{dbus-event} event
|
||||
arrives, @var{handler} is called with @var{args} as arguments.
|
||||
|
||||
@var{bus} identifies the D-Bus the signal is coming from. It is
|
||||
either the symbol @code{:system} or the symbol @code{:session}.
|
||||
|
||||
|
|
@ -517,6 +516,10 @@ either the symbol @code{:system} or the symbol @code{:session}.
|
|||
of the D-Bus object emitting the signal. @var{interface} and
|
||||
@var{member} denote the signal which has been sent.
|
||||
|
||||
@var{handler} is the callback function which has been registered for
|
||||
this signal (see @pxref{Signals}). When a @code{dbus-event} event
|
||||
arrives, @var{handler} is called with @var{args} as arguments.
|
||||
|
||||
In order to inspect the @code{dbus-event} data, you could extend the
|
||||
definition of the callback function in @ref{Signals}:
|
||||
|
||||
|
|
|
|||
|
|
@ -20529,7 +20529,7 @@ Suffix to add to the group name to arrive at the score file name
|
|||
@vindex gnus-score-uncacheable-files
|
||||
@cindex score cache
|
||||
All score files are normally cached to avoid excessive re-loading of
|
||||
score files. However, if this might make your Emacs grow big and
|
||||
score files. However, this might make your Emacs grow big and
|
||||
bloated, so this regexp can be used to weed out score files unlikely
|
||||
to be needed again. It would be a bad idea to deny caching of
|
||||
@file{all.SCORE}, while it might be a good idea to not cache
|
||||
|
|
|
|||
|
|
@ -1,3 +1,38 @@
|
|||
2007-12-15 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
The following files renamed to avoid file-name clashes in
|
||||
8+3 (a.k.a. DOS) namespace:
|
||||
|
||||
* schema/xhtml-basic-form.rnc: Renamed to xhtml-bform.rnc.
|
||||
* schema/xhtml-basic-table.rnc: Renamed to xhtml-btable.rnc.
|
||||
* schema/xhtml-list.rnc: Renamed to xhtml-lst.rnc.
|
||||
* schema/xhtml-target.rnc: Renamed to xhtml-tgt.rnc.
|
||||
* schema/xhtml-style.rnc: Renamed to xhtml-xstyle.rnc.
|
||||
* schema/xhtml-form.rnc, schema/xhtml-table.rnc, schema/xhtml.rnc:
|
||||
Updated accordingly.
|
||||
|
||||
* schema/docbook-dyntbl.rnc, schema/docbook-dyntbl.rnc: Renamed to
|
||||
docbk-dyntbl.rnc and docbk-soextbl.rnc, respectively.
|
||||
|
||||
* images/icons/macemacs_16.png, images/icons/macemacs_24.png:
|
||||
* images/icons/macemacs_32.png, images/icons/macemacs_48.png:
|
||||
* images/icons/macemacs_256.png, images/icons/macemacs_512.png:
|
||||
Renamed to emacs16_mac.png, emacs24_mac.png, emacs32_mac.png,
|
||||
emacs48_mac.png, emacs256_mac.png, and emacs512_mac.png,
|
||||
respectively.
|
||||
|
||||
2007-12-08 Ulrich Mueller <ulm@gentoo.org> (tiny change)
|
||||
|
||||
* emacs.desktop (Exec, Icon, Categories): Fix entries.
|
||||
|
||||
2007-12-08 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* NEWS: Add minimal Gnus item.
|
||||
|
||||
2007-12-08 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* emacs.desktop: New file.
|
||||
|
||||
2007-11-30 Kentaro Ohkouchi <nanasess@fsm.ne.jp>
|
||||
|
||||
* images/icons/macemacs_16.png, images/icons/macemacs_24.png:
|
||||
|
|
|
|||
17
etc/NEWS
17
etc/NEWS
|
|
@ -55,7 +55,7 @@ testing for the `multi-tty' feature.
|
|||
OS-X-style icons (an application icon and a relevant document icon)
|
||||
were contributed by Kentaro Ohkouchi.
|
||||
Source files for these icons can be found in Emacs.app/Contents/Resources.
|
||||
PNG versions are available as etc/images/icons/macemacs_*.png.
|
||||
PNG versions are available as etc/images/icons/emacs*_mac.png.
|
||||
|
||||
** Built-in functions (subr) can now have an interactive specification
|
||||
that is not a prompt string. If the `intspec' parameter of a `DEFUN'
|
||||
|
|
@ -234,7 +234,12 @@ position of point in help window (for example in `view-lossage').
|
|||
** view-remove-frame-by-deleting is now by default t
|
||||
since users found iconification of view-mode frames distracting.
|
||||
|
||||
** isearch can now search through multiple ChangeLog files.
|
||||
** Isearch mode
|
||||
|
||||
*** New command `isearch-occur' bound to `M-s o' in isearch mode
|
||||
runs `occur' with the current search string.
|
||||
|
||||
*** isearch can now search through multiple ChangeLog files.
|
||||
When running isearch in a ChangeLog file, if the search fails,
|
||||
then another C-s tries searching the previous ChangeLog,
|
||||
if there is one (e.g. go from ChangeLog to ChangeLog.12).
|
||||
|
|
@ -347,6 +352,14 @@ rather than fortran-indent-comment.
|
|||
+++
|
||||
*** (The increasingly misnamed) F90 mode supports Fortran 2003 syntax.
|
||||
|
||||
** Gnus package
|
||||
|
||||
*** The Gnus package has been updated
|
||||
|
||||
*** There are many news features, bug fixes and improvements.
|
||||
|
||||
See the file GNUS-NEWS or the node "No Gnus" in the Gnus manual for details.
|
||||
|
||||
** Miscellaneous
|
||||
|
||||
*** comint-mode uses `start-file-process' now (see Lisp Changes).
|
||||
|
|
|
|||
|
|
@ -88,6 +88,8 @@ that the desktop being saved is not an update of the one on disk.
|
|||
|
||||
** The new package vera-mode.el provides a major mode for editing Vera files.
|
||||
|
||||
** The new package verilog-mode.el provides a major mode for editing Verilog files.
|
||||
|
||||
** The new package socks.el implements the SOCKS v5 protocol.
|
||||
|
||||
** VC
|
||||
|
|
|
|||
8
etc/TODO
8
etc/TODO
|
|
@ -25,10 +25,6 @@ I.e. mouse-set-font should use customize-face.
|
|||
|
||||
** Compute the list of active keymaps *after* reading the first event.
|
||||
|
||||
** mouse-autoselect-window should wait to select the window until
|
||||
the mouse is put to rest or after a delay or both, so that moving over
|
||||
a window doesn't select it.
|
||||
|
||||
** Distribute a bar cursor of width > 1 evenly between the two glyphs
|
||||
on each side of the bar (what to do at the edges?).
|
||||
|
||||
|
|
@ -38,6 +34,8 @@ a window doesn't select it.
|
|||
** buffer-offer-save should be a permanent local.
|
||||
|
||||
** revert-buffer should eliminate overlays and the mark.
|
||||
For related problems consult the thread starting with
|
||||
http://lists.gnu.org/archive/html/emacs-devel/2005-11/msg01346.html
|
||||
|
||||
** erase-buffer should perhaps disregard read-only properties of text.
|
||||
|
||||
|
|
@ -570,7 +568,7 @@ but which can also be used as a modifier).
|
|||
a derived mode of sendmail.el. Or arrange for messages.el to be split
|
||||
into a small core and "the rest" so that we use less resources as long as
|
||||
we stick to the features provided in sendmail.el.
|
||||
|
||||
|
||||
** Replace gmalloc.c with the modified Doug Lea code from the current
|
||||
GNU libc so that the special mmapping of buffers can be removed --
|
||||
that apparently loses under Solaris, at least. [fx has mostly done
|
||||
|
|
|
|||
11
etc/emacs.desktop
Normal file
11
etc/emacs.desktop
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
[Desktop Entry]
|
||||
Name=Emacs
|
||||
GenericName=Text Editor
|
||||
Comment=Edit text
|
||||
MimeType=text/english;text/plain;text/x-makefile;text/x-c++hdr;text/x-c++src;text/x-chdr;text/x-csrc;text/x-java;text/x-moc;text/x-pascal;text/x-tcl;text/x-tex;application/x-shellscript;text/x-c;text/x-c++;
|
||||
Exec=emacs %F
|
||||
Icon=emacs_32
|
||||
Type=Application
|
||||
Terminal=false
|
||||
Categories=Development;TextEditor;
|
||||
StartupWMClass=Emacs
|
||||
BIN
etc/images/icons/emacs16_mac.png
Normal file
BIN
etc/images/icons/emacs16_mac.png
Normal file
Binary file not shown.
BIN
etc/images/icons/emacs24_mac.png
Normal file
BIN
etc/images/icons/emacs24_mac.png
Normal file
Binary file not shown.
BIN
etc/images/icons/emacs256_mac.png
Normal file
BIN
etc/images/icons/emacs256_mac.png
Normal file
Binary file not shown.
BIN
etc/images/icons/emacs32_mac.png
Normal file
BIN
etc/images/icons/emacs32_mac.png
Normal file
Binary file not shown.
BIN
etc/images/icons/emacs48_mac.png
Normal file
BIN
etc/images/icons/emacs48_mac.png
Normal file
Binary file not shown.
BIN
etc/images/icons/emacs512_mac.png
Normal file
BIN
etc/images/icons/emacs512_mac.png
Normal file
Binary file not shown.
Binary file not shown.
|
Before Width: | Height: | Size: 1.2 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 1.8 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 57 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 2.4 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 4.2 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 157 KiB |
|
|
@ -2,7 +2,7 @@
|
|||
# allows the table model to be selected dynamically based on the
|
||||
# definitions of cals.table.module and exchange.table.module.
|
||||
#
|
||||
# To use this copy, docbook.rnc to docbook-dyntbl.rnc replacing
|
||||
# To use this, copy docbook.rnc to docbook-dyntbl.rnc replacing
|
||||
# "dbcalstbl.rnc" by "dbdyntbl.rnc". Then, you can override the
|
||||
# choice of table model by doing
|
||||
#
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
|
||||
# Unlike the DTD implementation, this builds on the basic-form module
|
||||
|
||||
include "xhtml-basic-form.rnc" {
|
||||
include "xhtml-bform.rnc" {
|
||||
select = element select { select.attlist, (option | optgroup)+ }
|
||||
}
|
||||
form.attlist &=
|
||||
|
|
|
|||
|
|
@ -3,7 +3,7 @@
|
|||
# This builds on the basic tables module, unlike with the DTD
|
||||
# implementation.
|
||||
|
||||
include "xhtml-basic-table.rnc" {
|
||||
include "xhtml-btable.rnc" {
|
||||
table =
|
||||
element table {
|
||||
table.attlist,
|
||||
|
|
|
|||
|
|
@ -10,7 +10,7 @@ include "xhtml-attribs.rnc"
|
|||
include "xhtml-frames.rnc"
|
||||
include "xhtml-text.rnc"
|
||||
include "xhtml-hypertext.rnc"
|
||||
include "xhtml-list.rnc"
|
||||
include "xhtml-lst.rnc"
|
||||
include "xhtml-image.rnc"
|
||||
include "xhtml-ssismap.rnc"
|
||||
include "xhtml-base.rnc"
|
||||
|
|
@ -22,16 +22,16 @@ include "xhtml-bdo.rnc"
|
|||
include "xhtml-pres.rnc"
|
||||
include "xhtml-edit.rnc"
|
||||
include "xhtml-applet.rnc"
|
||||
# include "xhtml-basic-form.rnc"
|
||||
# include "xhtml-bform.rnc"
|
||||
include "xhtml-form.rnc"
|
||||
include "xhtml-style.rnc"
|
||||
include "xhtml-xstyle.rnc"
|
||||
include "xhtml-script.rnc"
|
||||
# include "xhtml-basic-table.rnc"
|
||||
# include "xhtml-btable.rnc"
|
||||
include "xhtml-table.rnc"
|
||||
include "xhtml-csismap.rnc"
|
||||
include "xhtml-events.rnc"
|
||||
include "xhtml-inlstyle.rnc"
|
||||
include "xhtml-target.rnc"
|
||||
include "xhtml-tgt.rnc"
|
||||
include "xhtml-iframe.rnc"
|
||||
include "xhtml-nameident.rnc"
|
||||
include "xhtml-legacy.rnc"
|
||||
|
|
|
|||
|
|
@ -1,3 +1,8 @@
|
|||
2007-12-07 Kenichi Handa <handa@ni.aist.go.jp>
|
||||
|
||||
* quail/lao.el (quail-map-from-table): Allow a tone just after a
|
||||
consonant.
|
||||
|
||||
2007-11-17 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* Makefile.in (check-declare): New target.
|
||||
|
|
|
|||
|
|
@ -206,8 +206,9 @@ you need to re-load it to properly re-initialize related alists.")
|
|||
lao-tone-key-alist
|
||||
lao-other-key-alist)
|
||||
(svt-state (lao-semivowel-key-alist . v-state)
|
||||
(lao-vowel-key-alist . t-state)
|
||||
lao-voweltone-key-alist)
|
||||
(lao-vowel-key-alist . t-state)
|
||||
lao-voweltone-key-alist
|
||||
lao-tone-key-alist)
|
||||
(v-state (lao-vowel-key-alist . t-state))
|
||||
(t-state lao-tone-key-alist))))
|
||||
|
||||
|
|
|
|||
|
|
@ -1256,7 +1256,7 @@ Doubling the postfix separates the letter and postfix: e.g. aee -> ae
|
|||
(quail-define-package
|
||||
"scandinavian-postfix" "Latin-1" "SC<" t
|
||||
"Scandinavian input method with postfix modifiers
|
||||
Supported languages are Swidish, Norwegian, Danish, and Finnish.
|
||||
Supported languages are Swedish, Norwegian, Danish, and Finnish.
|
||||
|
||||
ae -> æ
|
||||
oe -> ø
|
||||
|
|
|
|||
|
|
@ -17,7 +17,7 @@
|
|||
|
||||
2007-11-22 Francesco Potort,Al(B <pot@gnu.org>
|
||||
|
||||
* etags.c (default_C_help) [CTAGS]: differentiate the help string,
|
||||
* etags.c (default_C_help) [CTAGS]: Differentiate the help string,
|
||||
as the defaults in ctags are different from etags.
|
||||
|
||||
2007-11-15 Francesco Potort,Al(B <pot@gnu.org>
|
||||
|
|
|
|||
319
lisp/ChangeLog
319
lisp/ChangeLog
|
|
@ -1,3 +1,306 @@
|
|||
2007-12-12 Thien-Thi Nguyen <ttn@gnuvola.org>
|
||||
|
||||
* progmodes/cc-vars.el (defcustom-c-stylevar): Rewrite.
|
||||
|
||||
2007-12-11 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* progmodes/verilog-mode.el (set-buffer-menubar): Remove unused
|
||||
function.
|
||||
(add-submenu): Only define for XEmacs.
|
||||
(verilog-regexp-words): Revert previous change, keep the other
|
||||
definition.
|
||||
|
||||
2007-12-09 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* progmodes/perl-mode.el (perl-continued-statement-offset)
|
||||
(perl-continued-brace-offset, perl-brace-offset)
|
||||
(perl-brace-imaginary-offset, perl-label-offset):
|
||||
* progmodes/cperl-mode.el (cperl-brace-offset)
|
||||
(cperl-continued-brace-offset, cperl-label-offset)
|
||||
(cperl-continued-statement-offset)
|
||||
(cperl-extra-newline-before-brace, cperl-merge-trailing-else): Add
|
||||
safe-local-variable properties.
|
||||
|
||||
2007-12-08 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* progmodes/verilog-mode.el (verilog-mode-map)
|
||||
(verilog-template-map, verilog-mode-mouse-map): Fix typos.
|
||||
(verilog-colorize-include-files): Use only overlay functions so
|
||||
that it can work on both emacs and XEmacs.
|
||||
(set-extent-keymap): Remove unused defun.
|
||||
(verilog-kill-existing-comment, verilog-insert-date)
|
||||
(verilog-insert-year): Rename in order not to pollute the global
|
||||
namespace from kill-existing-comment, insert-date and
|
||||
insert-year, respectively.
|
||||
(verilog-set-auto-endcomments, verilog-header): Update callers.
|
||||
|
||||
* files.el (auto-mode-alist): Recognize verilog files.
|
||||
|
||||
* progmodes/verilog-mode.el (verilog-string-replace-matches)
|
||||
(verilog-string-remove-spaces, verilog-re-search-forward)
|
||||
(verilog-re-search-backward, verilog-re-search-forward-quick)
|
||||
(verilog-re-search-backward-quick, verilog-get-beg-of-line)
|
||||
(verilog-get-end-of-line, verilog-within-string): Move definitions
|
||||
before first use. No code changes.
|
||||
|
||||
2007-12-08 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* progmodes/verilog-mode.el (verilog-mode-version)
|
||||
(verilog-mode-release-date): Don't use expanding keywords.
|
||||
(provide): Move to the end of file.
|
||||
(fboundp): Don't check if eval-when-compile is bound, it is used
|
||||
later in the file without checking.
|
||||
(when, unless): Copy definitions from subr.el.
|
||||
(char-before, defcustom, defface, customize-group)
|
||||
(verilog-batch-error-wrapper): Don't use old style backquotes.
|
||||
(verilog-regexp-opt): Avoid using the cl function case.
|
||||
(verilog-regexp-words): Remove duplicated definition.
|
||||
(verilog-mode-abbrev-table): Remove, duplicate.
|
||||
(verilog-mode-map, verilog-template-map, verilog-mode-mouse-map):
|
||||
Declare and initialize in one step.
|
||||
(verilog-declaration-prefix-re, verilog-declaration-re)
|
||||
(verilog-end-of-statement, verilog-indent-declaration)
|
||||
(verilog-get-lineup-indent): Remove trailing whitespace.
|
||||
(verilog-mode): Fix autoload cookie. Set
|
||||
beginning-of-defun-function and end-of-defun-function. Use when
|
||||
instead of if.
|
||||
(verilog-emacs-features, verilog-auto-ascii-enum)
|
||||
(verilog-insert-indices): Escape braces in doc strings.
|
||||
|
||||
2007-12-08 Michael McNamara <mac@verilog.com>
|
||||
Wilson Snyder <wsnyder@wsnyder.org>
|
||||
|
||||
* progmodes/verilog-mode.el: New file.
|
||||
|
||||
2007-12-08 Eli Zaretskii <eliz@fencepost.gnu.org>
|
||||
|
||||
* international/latexenc.el (latexenc-find-file-coding-system): If
|
||||
both coding-system-for-write and buffer-file-coding-system of
|
||||
latex-main-file are nil, use `undecided'.
|
||||
|
||||
2007-12-06 Jason Rumney <jasonr@gnu.org>
|
||||
|
||||
* mouse.el (mouse-buffer-menu-alist): Keep buffer names left aligned.
|
||||
|
||||
2007-12-12 Yoni Rabkin Katzenell <yoni-r@actcom.com> (tiny change)
|
||||
|
||||
* files.el (revert-buffer): Docstring fix.
|
||||
|
||||
2007-12-11 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* emacs-lisp/check-declare.el (check-declare-verify): Handle deffoo.
|
||||
|
||||
2007-12-11 Jay Belanger <jay.p.belanger@gmail.com>
|
||||
|
||||
* calc/calc-aent.el (math-restore-underscores)
|
||||
(math-string-restore-underscores): New functions.
|
||||
(math-read-factor): Properly check variable names with underscores
|
||||
for entries in `math-expr-variable-mapping'.
|
||||
|
||||
* calc/calc-lang.el (math-lang-name): New property name.
|
||||
|
||||
* calc/calc.el (calc-set-mode-line): Use `math-lang-name'
|
||||
to set language name.
|
||||
|
||||
2007-12-10 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* pgg.el (pgg-run-at-time, pgg-cancel-timer): Use eval-and-compile.
|
||||
|
||||
2007-12-10 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* server.el (server-select-display): Fix important typo.
|
||||
(server-process-filter): Turn a "" display into nil.
|
||||
|
||||
2007-12-09 Juri Linkov <juri@jurta.org>
|
||||
|
||||
* replace.el (keep-lines, flush-lines, how-many): Doc fix.
|
||||
Check search-upper-case before calling isearch-no-upper-case-p
|
||||
to set case-fold-search.
|
||||
(occur): Doc fix.
|
||||
(occur-1, perform-replace): Check search-upper-case before calling
|
||||
isearch-no-upper-case-p to set case-fold-search.
|
||||
|
||||
* isearch.el (search-upper-case): Doc fix.
|
||||
(isearch-mode-map): Bind `M-s o' to isearch-occur.
|
||||
(isearch-query-replace): Doc fix. Let-bind search-upper-case to nil.
|
||||
(isearch-query-replace-regexp): Doc fix.
|
||||
(isearch-occur): New function.
|
||||
|
||||
2007-12-09 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* pgg.el, pgg-parse.el (declare-function): Add new no-op macro for
|
||||
backward compatibility.
|
||||
|
||||
* net/imap.el (imap-string-to-integer): New function.
|
||||
|
||||
2007-12-09 David Kastrup <dak@gnu.org>
|
||||
|
||||
* emacs-lisp/lisp-mnt.el (lm-verify): Make it work with
|
||||
directories. Not sure anybody uses this anymore, though.
|
||||
|
||||
2007-12-09 Vinicius Jose Latorre <viniciusjl@ig.com.br>
|
||||
|
||||
* printing.el: Fix pr-interface-map initialization code.
|
||||
(pr-version): New version 6.9.3.
|
||||
(pr-f-set-keymap-parents): Replace by pr-set-keymap-parents.
|
||||
(pr-f-set-keymap-name): Replace by pr-set-keymap-name.
|
||||
(pr-f-read-string): Replace by pr-read-string.
|
||||
(pr-set-keymap-parents, pr-set-keymap-name, pr-read-string): New fun
|
||||
name.
|
||||
(pr-interactive-n-up, pr-interactive-regexp): Code fix.
|
||||
|
||||
2007-12-09 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* emulation/viper-init.el (top-level): Use dolist rather than mapc
|
||||
in make-variable-frame-local call.
|
||||
|
||||
2007-12-08 Dan Nicolaescu <dann@ics.uci.edu>
|
||||
|
||||
* mail/hashcash.el (declare-function):
|
||||
* net/imap.el (declare-function): New no-op macro for backward
|
||||
compatibility.
|
||||
|
||||
2007-12-08 Eli Zaretskii <eliz@gnu.org>
|
||||
|
||||
Sync makefile.w32-in with Makefile.in.
|
||||
|
||||
* makefile.w32-in (check-declare): New target.
|
||||
(BYTE_COMPILE_EXTRA_FLAGS): New variable.
|
||||
(.el.elc, compile-CMD, compile-SH, compile-always-CMD)
|
||||
(compile-always-SH, compile-calc-CMD, compile-calc-SH)
|
||||
($(lisp)/progmodes/cc-mode.elc): Use it.
|
||||
($(lisp)/progmodes/cc-mode.elc): New rule.
|
||||
|
||||
2007-12-08 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* indent.el (tab-stop-list): Mark as safe-local-variable.
|
||||
|
||||
* generic-x.el (etc-sudoers-generic-mode): New mode.
|
||||
(generic-unix-modes): Add it.
|
||||
|
||||
2007-12-08 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
* net/dbus.el (dbus-hash-table=): Remove function. We cannot
|
||||
apply wildcards in a hash table key; there is no usable hash code then.
|
||||
(dbus-registered-functions-table): Use `equal' as test function.
|
||||
(dbus-name-owner-changed-handler): Rewrite due to new hash table
|
||||
structure.
|
||||
|
||||
2007-12-08 Martin Rudalics <rudalics@gmx.at>
|
||||
|
||||
* progmodes/cc-cmds.el (c-mask-paragraph): Avoid invalid search
|
||||
bound error in block comment branch.
|
||||
|
||||
2007-12-08 David Kastrup <dak@gnu.org>
|
||||
|
||||
* textmodes/reftex.el (reftex-select-with-char):
|
||||
* textmodes/reftex-toc.el (reftex-toc-do-promote)
|
||||
(reftex-toc-visit-location, reftex-toc-find-section):
|
||||
* textmodes/reftex-index.el (reftex-index-show-entry):
|
||||
* textmodes/org.el (org-cycle-hide-archived-subtrees)
|
||||
(org-table-rotate-recalc-marks, org-mark-ring-push)
|
||||
(org-follow-info-link, org-mhe-get-message-folder-from-index)
|
||||
(org-auto-repeat-maybe, org-store-log-note, org-delete-property)
|
||||
(org-evaluate-time-range, org-edit-agenda-file-list):
|
||||
* textmodes/artist.el (artist-select-next-op-in-list)
|
||||
(artist-select-prev-op-in-list):
|
||||
* term/mac-win.el (mac-service-insert-text):
|
||||
* startup.el (fancy-about-screen):
|
||||
* progmodes/vhdl-mode.el (vhdl-decision-query):
|
||||
* progmodes/idlwave.el (idlwave-template)
|
||||
(idlwave-scroll-completions, idlwave-display-completion-list):
|
||||
* progmodes/ebrowse.el (ebrowse-show-progress):
|
||||
* progmodes/cperl-mode.el (cperl-find-pods-heres):
|
||||
* progmodes/antlr-mode.el (antlr-insert-option-do):
|
||||
* play/mpuz.el (mpuz-close-game):
|
||||
* net/rcirc.el (rcirc-next-active-buffer):
|
||||
* mail/reporter.el (reporter-update-status):
|
||||
* kmacro.el (kmacro-display):
|
||||
* international/ja-dic-cnv.el (skkdic-set-okuri-nasi):
|
||||
* emulation/viper-util.el (viper-save-setting):
|
||||
* emacs-lisp/lisp-mnt.el (lm-verify):
|
||||
* emacs-lisp/edebug.el (edebug-set-mode):
|
||||
* emacs-lisp/checkdoc.el (checkdoc-rogue-spaces, checkdoc-defun):
|
||||
* calendar/calendar.el (calendar-print-day-of-year):
|
||||
* calc/calcalg3.el (calc-curve-fit):
|
||||
* calc/calcalg2.el (math-integral):
|
||||
* calc/calc.el (calc-read-key-sequence, calc-version):
|
||||
* calc/calc-mode.el (calc-set-simplify-mode):
|
||||
* calc/calc-ext.el (calc-fancy-prefix): Fix buggy call to `message'.
|
||||
|
||||
2007-12-07 D. Goel <deego3@gmail.com>
|
||||
|
||||
* progmodes/idlw-shell.el (idlwave-shell-display-line)
|
||||
* progmodes/ada-xref.el (ada-find-file, ada-get-all-references)
|
||||
(ada-xref-find-in-modified-ali, ada-find-in-src-path)
|
||||
* mail/uce.el (uce-reply-to-uce)
|
||||
* progmodes/vhdl-mode.el (vhdl-template-modify)
|
||||
* mail/feedmail.el (feedmail-dump-message-to-queue): Improve calls
|
||||
to `error' (as suggested by RMS.)
|
||||
|
||||
2007-12-07 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* allout.el (allout-write-file-hook-handler):
|
||||
* textmodes/reftex.el (reftex-TeX-master-file):
|
||||
* textmodes/reftex-parse.el (reftex-short-context):
|
||||
Revert previous change.
|
||||
|
||||
2007-12-07 Michael Albinus <michael.albinus@gmx.de>
|
||||
|
||||
* net/dbus.el (dbus-hash-table=): Fix for new hash table key structure.
|
||||
(dbus-list-hash-table, dbus-name-owner-changed-handler): New defuns.
|
||||
(dbus-check-event, dbus-handle-event, dbus-event-bus-name)
|
||||
(dbus-event-service-name, dbus-event-path-name)
|
||||
(dbus-event-interface-name, dbus-event-member-name): Fix for new
|
||||
event structure.
|
||||
(dbus-list-activatable-names, dbus-list-names)
|
||||
(dbus-list-queued-owners, dbus-get-name-owner, dbus-introspect):
|
||||
Reorder `dbus-call-method' arguments.
|
||||
|
||||
2007-12-06 D. Goel <deego3@gmail.com>
|
||||
|
||||
* allout.el (allout-write-file-hook-handler):
|
||||
* textmodes/reftex.el (reftex-TeX-master-file):
|
||||
* textmodes/org.el (org-paste-subtree):
|
||||
* progmodes/vhdl-mode.el (vhdl-template-modify):
|
||||
* progmodes/idlw-shell.el (idlwave-shell-send-command)
|
||||
(idlwave-shell-display-line):
|
||||
* progmodes/ada-xref.el (ada-find-file, ada-get-all-references)
|
||||
(ada-xref-find-in-modified-ali, ada-find-in-src-path):
|
||||
* net/trampver.el (x):
|
||||
* mail/uce.el (uce-reply-to-uce):
|
||||
* mail/rmailout.el (rmail-output):
|
||||
* mail/feedmail.el (feedmail-dump-message-to-queue):
|
||||
* whitespace.el (whitespace-write-file-hook):
|
||||
* wdired.el (wdired-check-kill-buffer):
|
||||
* vc.el (vc-update):
|
||||
* vc-mcvs.el (vc-mcvs-checkin):
|
||||
* vc-cvs.el (vc-cvs-checkin):
|
||||
* man.el (Man-bgproc-sentinel, Man-goto-see-also-section):
|
||||
* ibuffer.el (ibuffer-current-buffer):
|
||||
* dired.el (dired-move-to-end-of-filename):
|
||||
* bindings.el (complete-symbol):
|
||||
* textmodes/org-publish.el (org-publish-file):
|
||||
(org-publish-current-project):
|
||||
* textmodes/reftex-parse.el (reftex-short-context):
|
||||
* textmodes/texinfmt.el: Fix buggy calls to `error'.
|
||||
|
||||
2007-12-06 Stefan Monnier <monnier@iro.umontreal.ca>
|
||||
|
||||
* doc-view.el (doc-view-dvi->pdf-sentinel)
|
||||
(doc-view-pdf/ps->png-sentinel, doc-view-pdf->txt-sentinel)
|
||||
(doc-view-ps->pdf-sentinel, doc-view-display): Don't change buffer
|
||||
within a sentinel or timer.
|
||||
(doc-view-display): Don't try to display before the requested page
|
||||
is available, unless told to do so explicitly.
|
||||
(doc-view-pdf/ps->png-sentinel, doc-view-initiate-display):
|
||||
Force display even if the requested page is not available.
|
||||
|
||||
2007-12-06 Richard Stallman <rms@gnu.org>
|
||||
|
||||
* help-fns.el (describe-function-1): Call ad-get-advice-info
|
||||
only on symbols.
|
||||
|
||||
2007-12-06 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* progmodes/antlr-mode.el (antlr-keyword, antlr-syntax)
|
||||
|
|
@ -97,8 +400,8 @@
|
|||
|
||||
* eshell/esh-module.el (eshell-load-defgroups): Eval and compile.
|
||||
|
||||
* eshell/esh-util.el (top-level): Don't require pp. Use
|
||||
condition-case rather than ignore-errors.
|
||||
* eshell/esh-util.el (top-level): Don't require pp.
|
||||
Use condition-case rather than ignore-errors.
|
||||
|
||||
* eshell/eshell.el (eshell-buffer-name): Define for compiler.
|
||||
|
||||
|
|
@ -120,8 +423,8 @@
|
|||
esh-maint. Collect any require statements. Leave provide at start.
|
||||
Move any commentary to start.
|
||||
|
||||
* emacs-lisp/bytecomp.el (byte-compile-declare-function): Remove
|
||||
declared function from byte-compile-noruntime-functions.
|
||||
* emacs-lisp/bytecomp.el (byte-compile-declare-function):
|
||||
Remove declared function from byte-compile-noruntime-functions.
|
||||
|
||||
* ediff-util.el (ediff-version):
|
||||
* progmodes/python.el (compilation-shell-minor-mode):
|
||||
|
|
@ -223,16 +526,16 @@
|
|||
|
||||
2007-12-03 Richard Stallman <rms@gnu.org>
|
||||
|
||||
* subr.el (declare-function): Moved from byte-run.el.
|
||||
* subr.el (declare-function): Move from byte-run.el.
|
||||
|
||||
* emacs-lisp/byte-run.el (declare-function): Moved to subr.el
|
||||
* emacs-lisp/byte-run.el (declare-function): Move to subr.el
|
||||
|
||||
* window.el (recenter-top-bottom): Don't use `ecase'.
|
||||
|
||||
2007-12-02 Karl Fogel <kfogel@red-bean.com>
|
||||
|
||||
* saveplace.el (save-place-alist-to-file): Set
|
||||
coding-system-for-write once and refer to it throughout.
|
||||
* saveplace.el (save-place-alist-to-file):
|
||||
Set coding-system-for-write once and refer to it throughout.
|
||||
Suggested by David Reitter <dreitter{_AT_}inf.ed.ac.uk>.
|
||||
|
||||
2007-12-02 Karl Fogel <kfogel@red-bean.com>
|
||||
|
|
|
|||
|
|
@ -616,7 +616,7 @@ language you are using."
|
|||
(if (fboundp 'complete-tag)
|
||||
(complete-tag)
|
||||
;; Don't autoload etags if we have no tags table.
|
||||
(error (substitute-command-keys
|
||||
(error "%s" (substitute-command-keys
|
||||
"No tags table loaded; use \\[visit-tags-table] to load one")))))
|
||||
|
||||
;; Reduce total amount of space we must allocate during this function
|
||||
|
|
|
|||
|
|
@ -1015,6 +1015,19 @@ in Calc algebraic input.")
|
|||
(concat (math-match-substring x 1) "-" (math-match-substring x 2)))
|
||||
x))
|
||||
|
||||
(defun math-restore-underscores (x)
|
||||
"Replace pound signs by underscores in the symbol x.
|
||||
If the current Calc language does not allow underscores, return nil."
|
||||
(if (memq calc-language calc-lang-allow-underscores)
|
||||
(intern-soft (math-string-restore-underscores (symbol-name x)))))
|
||||
|
||||
(defun math-string-restore-underscores (x)
|
||||
"Replace pound signs by underscores in the string x."
|
||||
(if (string-match "\\`\\(.*\\)#\\(.*\\)\\'" x)
|
||||
(math-string-restore-underscores
|
||||
(concat (math-match-substring x 1) "_" (math-match-substring x 2)))
|
||||
x))
|
||||
|
||||
(defun math-read-if (cond op)
|
||||
(let ((then (math-read-expr-level 0)))
|
||||
(or (equal math-expr-data ":")
|
||||
|
|
@ -1116,7 +1129,10 @@ in Calc algebraic input.")
|
|||
sym
|
||||
(intern (concat "var-"
|
||||
(symbol-name sym)))))))
|
||||
(let ((v (assq (nth 1 val) math-expr-variable-mapping)))
|
||||
(let ((v (or
|
||||
(assq (nth 1 val) math-expr-variable-mapping)
|
||||
(assq (math-restore-underscores (nth 1 val))
|
||||
math-expr-variable-mapping))))
|
||||
(and v (setq val (if (consp (cdr v))
|
||||
(funcall (car (cdr v)) v val)
|
||||
(list 'var
|
||||
|
|
|
|||
|
|
@ -1434,7 +1434,7 @@ calc-kill calc-kill-region calc-yank))))
|
|||
(calc-set-command-flag 'no-align)
|
||||
(setq prefix (set flag (not (symbol-value flag)))
|
||||
prefix-arg n)
|
||||
(message (if prefix msg "")))
|
||||
(message "%s" (if prefix msg "")))
|
||||
(and prefix
|
||||
(not calc-is-keypad-press)
|
||||
(if (boundp 'overriding-terminal-local-map)
|
||||
|
|
|
|||
|
|
@ -408,6 +408,9 @@
|
|||
(message
|
||||
"LaTeX language mode with \\func(\\text{var}) and multiline matrices")))))
|
||||
|
||||
(put 'tex 'math-lang-name "TeX")
|
||||
(put 'latex 'math-lang-name "LaTeX")
|
||||
|
||||
(put 'tex 'math-oper-table
|
||||
'( ( "\\hat" calcFunc-hat -1 950 )
|
||||
( "\\check" calcFunc-check -1 950 )
|
||||
|
|
|
|||
|
|
@ -505,7 +505,7 @@
|
|||
mode)
|
||||
(and (not (eq calc-simplify-mode mode))
|
||||
mode)))
|
||||
(message (if (eq calc-simplify-mode mode)
|
||||
(message "%s" (if (eq calc-simplify-mode mode)
|
||||
msg
|
||||
"Default simplifications enabled")))
|
||||
|
||||
|
|
|
|||
|
|
@ -1228,7 +1228,7 @@ If nil, selections displayed but ignored.")
|
|||
(let ((prompt2 (format "%s " (key-description (this-command-keys))))
|
||||
(glob (current-global-map))
|
||||
(loc (current-local-map)))
|
||||
(or (input-pending-p) (message prompt))
|
||||
(or (input-pending-p) (message "%s" prompt))
|
||||
(let ((key (calc-read-key t)))
|
||||
(calc-unread-command (cdr key))
|
||||
(unwind-protect
|
||||
|
|
@ -1244,7 +1244,7 @@ If nil, selections displayed but ignored.")
|
|||
(defun calc-version ()
|
||||
"Return version of this version of Calc."
|
||||
(interactive)
|
||||
(message (concat "Calc version " calc-version)))
|
||||
(message "Calc version %s" calc-version))
|
||||
|
||||
(defun calc-mode ()
|
||||
"Calculator major mode.
|
||||
|
|
@ -1675,8 +1675,8 @@ See calc-keypad for details."
|
|||
(t (format "Radix%d " calc-number-radix)))
|
||||
(if calc-leading-zeros "Zero " "")
|
||||
(cond ((null calc-language) "")
|
||||
((eq calc-language 'tex) "TeX ")
|
||||
((eq calc-language 'latex) "LaTeX ")
|
||||
((get calc-language 'math-lang-name)
|
||||
(concat (get calc-language 'math-lang-name) " "))
|
||||
(t (concat
|
||||
(capitalize (symbol-name calc-language))
|
||||
" ")))
|
||||
|
|
|
|||
|
|
@ -746,7 +746,7 @@
|
|||
(setq math-integ-msg (format
|
||||
"Working... Integrating %s"
|
||||
(math-format-flat-expr expr 0)))
|
||||
(message math-integ-msg)))
|
||||
(message "%s" math-integ-msg)))
|
||||
(if math-cur-record
|
||||
(setcar (cdr math-cur-record)
|
||||
(if same-as-above (vector simp) 'busy))
|
||||
|
|
@ -773,7 +773,7 @@
|
|||
"simplification...\n")
|
||||
(setq val (math-integral simp 'no t))))))))
|
||||
(if (eq calc-display-working-message 'lots)
|
||||
(message math-integ-msg)))
|
||||
(message "%s" math-integ-msg)))
|
||||
(setcar (cdr math-cur-record) (or val
|
||||
(if (or math-enable-subst
|
||||
(not math-any-substs))
|
||||
|
|
|
|||
|
|
@ -416,7 +416,7 @@
|
|||
(calc-record (calc-normalize calc-fit-to-trail) "parm"))))
|
||||
(when plot
|
||||
(if (stringp plot)
|
||||
(message plot)
|
||||
(message "%s" plot)
|
||||
(let ((calc-graph-no-auto-view t))
|
||||
(calc-graph-delete t)
|
||||
(calc-graph-add-curve
|
||||
|
|
|
|||
|
|
@ -3154,7 +3154,7 @@ Defaults to today's date if DATE is not given."
|
|||
(defun calendar-print-day-of-year ()
|
||||
"Show day number in year/days remaining in year for date under the cursor."
|
||||
(interactive)
|
||||
(message (calendar-day-of-year-string (calendar-cursor-to-date t))))
|
||||
(message "%s" (calendar-day-of-year-string (calendar-cursor-to-date t))))
|
||||
|
||||
(defun calendar-set-mode-line (str)
|
||||
"Set mode line to STR, centered, surrounded by dashes."
|
||||
|
|
|
|||
|
|
@ -2009,7 +2009,7 @@ Return the position of the beginning of the filename, or nil if none found."
|
|||
(forward-char -1))))
|
||||
(or no-error
|
||||
(not (eq opoint (point)))
|
||||
(error (if hidden
|
||||
(error "%s" (if hidden
|
||||
(substitute-command-keys
|
||||
"File line is hidden, type \\[dired-hide-subdir] to unhide")
|
||||
"No file on this line")))
|
||||
|
|
|
|||
|
|
@ -508,14 +508,14 @@ Should be invoked when the cached images aren't up-to-date."
|
|||
"If DVI->PDF conversion was successful, convert the PDF to PNG now."
|
||||
(if (not (string-match "finished" event))
|
||||
(message "DocView: dvi->pdf process changed status to %s." event)
|
||||
(set-buffer (process-get proc 'buffer))
|
||||
(setq doc-view-current-converter-process nil
|
||||
mode-line-process nil)
|
||||
;; Now go on converting this PDF to a set of PNG files.
|
||||
(let* ((pdf (process-get proc 'pdf-file))
|
||||
(png (expand-file-name "page-%d.png"
|
||||
(doc-view-current-cache-dir))))
|
||||
(doc-view-pdf/ps->png pdf png))))
|
||||
(with-current-buffer (process-get proc 'buffer)
|
||||
(setq doc-view-current-converter-process nil
|
||||
mode-line-process nil)
|
||||
;; Now go on converting this PDF to a set of PNG files.
|
||||
(let* ((pdf (process-get proc 'pdf-file))
|
||||
(png (expand-file-name "page-%d.png"
|
||||
(doc-view-current-cache-dir))))
|
||||
(doc-view-pdf/ps->png pdf png)))))
|
||||
|
||||
(defun doc-view-dvi->pdf (dvi pdf)
|
||||
"Convert DVI to PDF asynchronously."
|
||||
|
|
@ -533,14 +533,14 @@ Should be invoked when the cached images aren't up-to-date."
|
|||
"If PDF/PS->PNG conversion was successful, update the display."
|
||||
(if (not (string-match "finished" event))
|
||||
(message "DocView: converter process changed status to %s." event)
|
||||
(set-buffer (process-get proc 'buffer))
|
||||
(setq doc-view-current-converter-process nil
|
||||
mode-line-process nil)
|
||||
(when doc-view-current-timer
|
||||
(cancel-timer doc-view-current-timer)
|
||||
(setq doc-view-current-timer nil))
|
||||
;; Yippie, finished. Update the display!
|
||||
(doc-view-display buffer-file-name)))
|
||||
(with-current-buffer (process-get proc 'buffer)
|
||||
(setq doc-view-current-converter-process nil
|
||||
mode-line-process nil)
|
||||
(when doc-view-current-timer
|
||||
(cancel-timer doc-view-current-timer)
|
||||
(setq doc-view-current-timer nil))
|
||||
;; Yippie, finished. Update the display!
|
||||
(doc-view-display buffer-file-name 'force))))
|
||||
|
||||
(defun doc-view-pdf/ps->png (pdf-ps png)
|
||||
"Convert PDF-PS to PNG asynchronously."
|
||||
|
|
@ -568,13 +568,13 @@ Should be invoked when the cached images aren't up-to-date."
|
|||
(message "DocView: converter process changed status to %s." event)
|
||||
(let ((current-buffer (current-buffer))
|
||||
(proc-buffer (process-get proc 'buffer)))
|
||||
(set-buffer proc-buffer)
|
||||
(setq doc-view-current-converter-process nil
|
||||
mode-line-process nil)
|
||||
;; If the user looks at the DocView buffer where the conversion was
|
||||
;; performed, search anew. This time it will be queried for a regexp.
|
||||
(when (eq current-buffer proc-buffer)
|
||||
(doc-view-search nil)))))
|
||||
(with-current-buffer proc-buffer
|
||||
(setq doc-view-current-converter-process nil
|
||||
mode-line-process nil)
|
||||
;; If the user looks at the DocView buffer where the conversion was
|
||||
;; performed, search anew. This time it will be queried for a regexp.
|
||||
(when (eq current-buffer proc-buffer)
|
||||
(doc-view-search nil))))))
|
||||
|
||||
(defun doc-view-pdf->txt (pdf txt)
|
||||
"Convert PDF to TXT asynchronously."
|
||||
|
|
@ -590,13 +590,13 @@ Should be invoked when the cached images aren't up-to-date."
|
|||
(defun doc-view-ps->pdf-sentinel (proc event)
|
||||
(if (not (string-match "finished" event))
|
||||
(message "DocView: converter process changed status to %s." event)
|
||||
(set-buffer (process-get proc 'buffer))
|
||||
(setq doc-view-current-converter-process nil
|
||||
mode-line-process nil)
|
||||
;; Now we can transform to plain text.
|
||||
(doc-view-pdf->txt (process-get proc 'pdf-file)
|
||||
(expand-file-name "doc.txt"
|
||||
(doc-view-current-cache-dir)))))
|
||||
(with-current-buffer (process-get proc 'buffer)
|
||||
(setq doc-view-current-converter-process nil
|
||||
mode-line-process nil)
|
||||
;; Now we can transform to plain text.
|
||||
(doc-view-pdf->txt (process-get proc 'pdf-file)
|
||||
(expand-file-name "doc.txt"
|
||||
(doc-view-current-cache-dir))))))
|
||||
|
||||
(defun doc-view-ps->pdf (ps pdf)
|
||||
"Convert PS to PDF asynchronously."
|
||||
|
|
@ -707,15 +707,19 @@ Predicate for sorting `doc-view-current-files'."
|
|||
(and (= (length a) (length b))
|
||||
(string< a b))))
|
||||
|
||||
(defun doc-view-display (doc)
|
||||
"Start viewing the document DOC."
|
||||
(set-buffer (get-file-buffer doc))
|
||||
(setq doc-view-current-files
|
||||
(sort (directory-files (doc-view-current-cache-dir) t
|
||||
"page-[0-9]+\\.png" t)
|
||||
'doc-view-sort))
|
||||
(when (> (length doc-view-current-files) 0)
|
||||
(doc-view-goto-page doc-view-current-page)))
|
||||
(defun doc-view-display (doc &optional force)
|
||||
"Start viewing the document DOC.
|
||||
If FORCE is non-nil, start viewing even if the document does not
|
||||
have the page we want to view."
|
||||
(with-current-buffer (get-file-buffer doc)
|
||||
(setq doc-view-current-files
|
||||
(sort (directory-files (doc-view-current-cache-dir) t
|
||||
"page-[0-9]+\\.png" t)
|
||||
'doc-view-sort))
|
||||
(when (or force
|
||||
(>= (length doc-view-current-files)
|
||||
(or doc-view-current-page 1)))
|
||||
(doc-view-goto-page doc-view-current-page))))
|
||||
|
||||
(defun doc-view-buffer-message ()
|
||||
;; Only show this message initially, not when refreshing the buffer (in which
|
||||
|
|
@ -898,7 +902,7 @@ If BACKWARD is non-nil, jump to the previous match."
|
|||
(if (file-exists-p (doc-view-current-cache-dir))
|
||||
(progn
|
||||
(message "DocView: using cached files!")
|
||||
(doc-view-display buffer-file-name))
|
||||
(doc-view-display buffer-file-name 'force))
|
||||
(doc-view-convert-current-doc))
|
||||
(message
|
||||
"%s"
|
||||
|
|
|
|||
|
|
@ -1576,7 +1576,7 @@ This default should work without changes."
|
|||
)
|
||||
((ediff-key-press-event-p event)
|
||||
(point))
|
||||
(t (error nil))))
|
||||
(t (error "Error"))))
|
||||
|
||||
(defun ediff-event-buffer (event)
|
||||
(cond ((ediff-mouse-event-p event)
|
||||
|
|
@ -1587,7 +1587,7 @@ This default should work without changes."
|
|||
)
|
||||
((ediff-key-press-event-p event)
|
||||
(current-buffer))
|
||||
(t (error nil))))
|
||||
(t (error "Error"))))
|
||||
|
||||
(defun ediff-event-key (event-or-key)
|
||||
(ediff-cond-compile-for-xemacs-or-emacs
|
||||
|
|
|
|||
|
|
@ -34,6 +34,9 @@
|
|||
|
||||
;;; TODO:
|
||||
|
||||
;; 1. Warn about functions marked as obsolete, eg
|
||||
;; password-read-and-add in smime.el.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(defconst check-declare-warning-buffer "*Check Declarations Warnings*"
|
||||
|
|
@ -141,7 +144,8 @@ is a string giving details of the error."
|
|||
;; defsubst's don't _have_ to be known at compile time.
|
||||
(setq re (format (if cflag
|
||||
"^[ \t]*\\(DEFUN\\)[ \t]*([ \t]*\"%s\""
|
||||
"^[ \t]*(\\(fset[ \t]+'\\|def\\(?:un\\|subst\\|\
|
||||
"^[ \t]*(\\(fset[ \t]+'\\|\
|
||||
def\\(?:un\\|subst\\|foo\\|\
|
||||
ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\
|
||||
\\|\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\)\\)\
|
||||
\[ \t]*%s\\([ \t;]+\\|$\\)")
|
||||
|
|
|
|||
|
|
@ -978,7 +978,7 @@ Optional argument INTERACT permits more interactive fixing."
|
|||
(if (not (interactive-p))
|
||||
e
|
||||
(if e
|
||||
(message (checkdoc-error-text e))
|
||||
(message "%s" (checkdoc-error-text e))
|
||||
(checkdoc-show-diagnostics)
|
||||
(message "Space Check: done.")))))
|
||||
|
||||
|
|
@ -1038,15 +1038,15 @@ space at the end of each line."
|
|||
(end (save-excursion (end-of-defun) (point)))
|
||||
(msg (checkdoc-this-string-valid)))
|
||||
(if msg (if no-error
|
||||
(message (checkdoc-error-text msg))
|
||||
(message "%s" (checkdoc-error-text msg))
|
||||
(error "%s" (checkdoc-error-text msg)))
|
||||
(setq msg (checkdoc-message-text-search beg end))
|
||||
(if msg (if no-error
|
||||
(message (checkdoc-error-text msg))
|
||||
(message "%s" (checkdoc-error-text msg))
|
||||
(error "%s" (checkdoc-error-text msg)))
|
||||
(setq msg (checkdoc-rogue-space-check-engine beg end))
|
||||
(if msg (if no-error
|
||||
(message (checkdoc-error-text msg))
|
||||
(message "%s" (checkdoc-error-text msg))
|
||||
(error "%s" (checkdoc-error-text msg))))))
|
||||
(if (interactive-p) (message "Checkdoc: done."))))))
|
||||
|
||||
|
|
|
|||
|
|
@ -3295,12 +3295,12 @@ With prefix argument, make it a temporary breakpoint."
|
|||
(if (eq (1+ edebug-recursion-depth) (recursion-depth))
|
||||
(progn
|
||||
(setq edebug-execution-mode mode)
|
||||
(message shortmsg)
|
||||
(message "%s" shortmsg)
|
||||
;; Continue execution
|
||||
(exit-recursive-edit))
|
||||
;; This is not terribly useful!!
|
||||
(setq edebug-next-execution-mode mode)
|
||||
(message msg)))
|
||||
(message "%s" msg)))
|
||||
|
||||
|
||||
(defalias 'edebug-step-through-mode 'edebug-step-mode)
|
||||
|
|
|
|||
|
|
@ -511,18 +511,17 @@ copyright notice is allowed."
|
|||
(if (and file (file-directory-p file))
|
||||
(setq ret
|
||||
(with-temp-buffer
|
||||
(mapcar
|
||||
(lambda (f)
|
||||
(if (string-match ".*\\.el\\'" f)
|
||||
(let ((status (lm-verify f)))
|
||||
(insert f ":")
|
||||
(if status
|
||||
(lm-insert-at-column lm-comment-column status
|
||||
"\n")
|
||||
(if showok
|
||||
(lm-insert-at-column lm-comment-column
|
||||
"OK\n"))))))
|
||||
(directory-files file))))
|
||||
(dolist (f (directory-files file nil "\\.el\\'")
|
||||
(buffer-string))
|
||||
(when (file-regular-p f)
|
||||
(let ((status (lm-verify f)))
|
||||
(insert f ":")
|
||||
(if status
|
||||
(lm-insert-at-column lm-comment-column status
|
||||
"\n")
|
||||
(if showok
|
||||
(lm-insert-at-column lm-comment-column
|
||||
"OK\n"))))))))
|
||||
(lm-with-file file
|
||||
(setq name (lm-get-package-name))
|
||||
(setq ret
|
||||
|
|
@ -562,7 +561,7 @@ copyright notice is allowed."
|
|||
(t
|
||||
ret)))))
|
||||
(if verbose
|
||||
(message ret))
|
||||
(message "%s" ret))
|
||||
ret))
|
||||
|
||||
(defun lm-synopsis (&optional file showall)
|
||||
|
|
|
|||
|
|
@ -445,12 +445,10 @@ delete the text being replaced, as in standard Vi."
|
|||
(defvar viper-vi-state-cursor-color nil)
|
||||
|
||||
(if (fboundp 'make-variable-frame-local)
|
||||
(mapc 'make-variable-frame-local
|
||||
'(viper-replace-overlay-cursor-color
|
||||
viper-insert-state-cursor-color
|
||||
viper-emacs-state-cursor-color
|
||||
viper-vi-state-cursor-color)))
|
||||
|
||||
(dolist (v '(viper-replace-overlay-cursor-color
|
||||
viper-insert-state-cursor-color viper-emacs-state-cursor-color
|
||||
viper-vi-state-cursor-color))
|
||||
(make-variable-frame-local v)))
|
||||
|
||||
(viper-deflocalvar viper-replace-overlay nil "")
|
||||
(put 'viper-replace-overlay 'permanent-local t)
|
||||
|
|
|
|||
|
|
@ -636,7 +636,7 @@
|
|||
(regexp (format "^[^;]*%s[ \t\n]*[a-zA-Z---_']*[ \t\n)]" var-name))
|
||||
(buf (find-file-noselect (substitute-in-file-name custom-file)))
|
||||
)
|
||||
(message message)
|
||||
(message "%s" (or message ""))
|
||||
(save-excursion
|
||||
(set-buffer buf)
|
||||
(goto-char (point-min))
|
||||
|
|
|
|||
|
|
@ -1,3 +1,37 @@
|
|||
2007-12-09 Michael Olson <mwolson@gnu.org>
|
||||
|
||||
* erc-services.el (erc-nickserv-alist): Fix regexps for GRnet.
|
||||
|
||||
2007-12-09 Giorgos Keramidas <keramida@ceid.upatras.gr> (tiny change)
|
||||
|
||||
* erc-backend.el, erc.el:
|
||||
Parse 275 (secure connection) responses.
|
||||
|
||||
* erc-services.el: Add identification hooks for GRnet, the Greek
|
||||
IRC network <http://www.irc.gr>.
|
||||
|
||||
2007-12-08 David Kastrup <dak@gnu.org>
|
||||
|
||||
* erc-stamp.el (erc-echo-timestamp):
|
||||
* erc-lang.el (language):
|
||||
* erc-backend.el (erc-server-connect): Fix buggy call to `message'.
|
||||
|
||||
2007-12-07 Edward O'Connor <ted@oconnor.cx>
|
||||
|
||||
* erc-services.el: Provide a hook that runs when nickserv confirms
|
||||
that the user has successfully identified.
|
||||
(services, erc-nickserv-identify-mode): Add and remove
|
||||
erc-nickserv-identification-autodetect from
|
||||
erc-server-NOTICE-functions.
|
||||
(erc-nickserv-alist): Add SUCCESS-REGEXP to each entry.
|
||||
(erc-nickserv-alist-identified-regexp)
|
||||
(erc-nickserv-identification-autodetect): New functions.
|
||||
(erc-nickserv-identified-hook): New hook.
|
||||
|
||||
2007-12-06 D. Goel <deego3@gmail.com>
|
||||
|
||||
* erc-match.el (erc-add-entry-to-list): Fix buggy call to `error'.
|
||||
|
||||
2007-12-01 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* erc-backend.el (erc-server-send-ping): Move after definition of
|
||||
|
|
|
|||
|
|
@ -515,7 +515,7 @@ We will store server variables in the buffer given by BUFFER."
|
|||
(set-process-filter process 'erc-server-filter-function)
|
||||
(set-process-buffer process buffer)))
|
||||
(erc-log "\n\n\n********************************************\n")
|
||||
(message (erc-format-message
|
||||
(message "%s" (erc-format-message
|
||||
'login ?n
|
||||
(with-current-buffer buffer (erc-current-nick))))
|
||||
;; wait with script loading until we receive a confirmation (first
|
||||
|
|
@ -1538,6 +1538,16 @@ A server may send more than one 005 message."
|
|||
See `erc-display-server-message'." nil
|
||||
(erc-display-server-message proc parsed))
|
||||
|
||||
(define-erc-response-handler (275)
|
||||
"Display secure connection message." nil
|
||||
(multiple-value-bind (nick user message)
|
||||
(cdr (erc-response.command-args parsed))
|
||||
(erc-display-message
|
||||
parsed 'notice 'active 's275
|
||||
?n nick
|
||||
?m (mapconcat 'identity (cddr (erc-response.command-args parsed))
|
||||
" "))))
|
||||
|
||||
(define-erc-response-handler (290)
|
||||
"Handle dancer-ircd CAPAB messages." nil nil)
|
||||
|
||||
|
|
|
|||
|
|
@ -197,7 +197,7 @@ Normungsinstitut (ON), Postfach 130, A-1021 Vienna, Austria.")
|
|||
"Return the language name for the ISO CODE."
|
||||
(interactive (list (completing-read "ISO language code: "
|
||||
iso-638-languages)))
|
||||
(message (cdr (assoc code iso-638-languages))))
|
||||
(message "%s" (cdr (assoc code iso-638-languages))))
|
||||
|
||||
(defun erc-cmd-LANG (language)
|
||||
"Display the language name for the language code given by LANGUAGE."
|
||||
|
|
|
|||
|
|
@ -299,7 +299,7 @@ Completion is performed on the optional alist COMPLETIONS."
|
|||
(lambda (x)
|
||||
(not (erc-member-ignore-case (car x) (symbol-value list)))))))
|
||||
(if (erc-member-ignore-case entry (symbol-value list))
|
||||
(error (format "\"%s\" is already on the list" entry))
|
||||
(error "\"%s\" is already on the list" entry)
|
||||
(set list (cons entry (symbol-value list))))))
|
||||
|
||||
(defun erc-remove-entry-from-list (list prompt)
|
||||
|
|
|
|||
|
|
@ -29,9 +29,10 @@
|
|||
;; are made to test if NickServ is the real NickServ for a given network or
|
||||
;; server.
|
||||
|
||||
;; As a default, ERC has the data for the official nickname services on the
|
||||
;; networks Austnet, BrasNET, Dalnet, freenode, GalaxyNet, and Slashnet.
|
||||
;; You can add more by using M-x customize-variable RET erc-nickserv-alist.
|
||||
;; As a default, ERC has the data for the official nickname services on
|
||||
;; the networks Austnet, BrasNET, Dalnet, freenode, GalaxyNet, GRnet,
|
||||
;; and Slashnet. You can add more by using M-x customize-variable RET
|
||||
;; erc-nickserv-alist.
|
||||
|
||||
;; Usage:
|
||||
;;
|
||||
|
|
@ -109,7 +110,9 @@ You can also use M-x erc-nickserv-identify-mode to change modes."
|
|||
(remove-hook 'erc-after-connect
|
||||
'erc-nickserv-identify-on-connect)
|
||||
(remove-hook 'erc-nick-changed-functions
|
||||
'erc-nickserv-identify-on-nick-change)))
|
||||
'erc-nickserv-identify-on-nick-change)
|
||||
(remove-hook 'erc-server-NOTICE-functions
|
||||
'erc-nickserv-identification-autodetect)))
|
||||
|
||||
;;;###autoload
|
||||
(defun erc-nickserv-identify-mode (mode)
|
||||
|
|
@ -118,6 +121,8 @@ You can also use M-x erc-nickserv-identify-mode to change modes."
|
|||
(list (intern (completing-read
|
||||
"Choose Nickserv identify mode (RET to disable): "
|
||||
'(("autodetect") ("nick-change") ("both")) nil t))))
|
||||
(add-hook 'erc-server-NOTICE-functions
|
||||
'erc-nickserv-identification-autodetect)
|
||||
(cond ((eq mode 'autodetect)
|
||||
(setq erc-nickserv-identify-mode 'autodetect)
|
||||
(add-hook 'erc-server-NOTICE-functions
|
||||
|
|
@ -149,7 +154,9 @@ You can also use M-x erc-nickserv-identify-mode to change modes."
|
|||
(remove-hook 'erc-after-connect
|
||||
'erc-nickserv-identify-on-connect)
|
||||
(remove-hook 'erc-nick-changed-functions
|
||||
'erc-nickserv-identify-on-nick-change))))
|
||||
'erc-nickserv-identify-on-nick-change)
|
||||
(remove-hook 'erc-server-NOTICE-functions
|
||||
'erc-nickserv-identification-autodetect))))
|
||||
|
||||
(defcustom erc-prompt-for-nickserv-password t
|
||||
"Ask for the password when identifying to NickServ."
|
||||
|
|
@ -176,6 +183,7 @@ Example of use:
|
|||
(const DALnet)
|
||||
(const freenode)
|
||||
(const GalaxyNet)
|
||||
(const GRnet)
|
||||
(const iip)
|
||||
(const OFTC)
|
||||
(const QuakeNet)
|
||||
|
|
@ -192,63 +200,70 @@ Example of use:
|
|||
'((Ars
|
||||
nil nil
|
||||
"Census"
|
||||
"IDENTIFY" nil nil)
|
||||
"IDENTIFY" nil nil nil)
|
||||
(Austnet
|
||||
"NickOP!service@austnet.org"
|
||||
"/msg\\s-NickOP@austnet.org\\s-identify\\s-<password>"
|
||||
"nickop@austnet.org"
|
||||
"identify" nil nil)
|
||||
"identify" nil nil nil)
|
||||
(Azzurra
|
||||
"NickServ!service@azzurra.org"
|
||||
"/ns\\s-IDENTIFY\\s-password"
|
||||
"NickServ"
|
||||
"IDENTIFY" nil nil)
|
||||
"IDENTIFY" nil nil nil)
|
||||
(BitlBee
|
||||
nil nil
|
||||
"&bitlbee"
|
||||
"identify" nil nil)
|
||||
"identify" nil nil nil)
|
||||
(BRASnet
|
||||
"NickServ!services@brasnet.org"
|
||||
"/NickServ\\s-IDENTIFY\\s- senha "
|
||||
"NickServ"
|
||||
"IDENTIFY" nil "")
|
||||
"IDENTIFY" nil "" nil)
|
||||
(DALnet
|
||||
"NickServ!service@dal.net"
|
||||
"/msg\\s-NickServ@services.dal.net\\s-IDENTIFY\\s-<password>"
|
||||
"NickServ@services.dal.net"
|
||||
"IDENTIFY" nil nil)
|
||||
"IDENTIFY" nil nil nil)
|
||||
(freenode
|
||||
"NickServ!NickServ@services."
|
||||
"/msg\\s-NickServ\\s-IDENTIFY\\s-<password>"
|
||||
"NickServ"
|
||||
"IDENTIFY" nil nil)
|
||||
"IDENTIFY" nil nil
|
||||
"Password\\s-accepted\\s--\\s-you\\s-are\\s-now\\s-recognized")
|
||||
(GalaxyNet
|
||||
"NS!nickserv@galaxynet.org"
|
||||
"Please\\s-change\\s-nicks\\s-or\\s-authenticate."
|
||||
"NS@services.galaxynet.org"
|
||||
"AUTH" t nil)
|
||||
"AUTH" t nil nil)
|
||||
(GRnet
|
||||
"NickServ!service@irc.gr"
|
||||
"This\\s-nickname\\s-is\\s-registered\\s-and\\s-protected."
|
||||
"NickServ"
|
||||
"IDENTIFY" nil nil
|
||||
"Password\\s-accepted\\s--\\s-you\\s-are\\s-now\\s-recognized.")
|
||||
(iip
|
||||
"Trent@anon.iip"
|
||||
"type\\s-/squery\\s-Trent\\s-identify\\s-<password>"
|
||||
"Trent@anon.iip"
|
||||
"IDENTIFY" nil "SQUERY")
|
||||
"IDENTIFY" nil "SQUERY" nil)
|
||||
(OFTC
|
||||
"NickServ!services@services.oftc.net"
|
||||
"type\\s-/msg\\s-NickServ\\s-IDENTIFY\\s- password ."
|
||||
"NickServ"
|
||||
"IDENTIFY" nil nil)
|
||||
"IDENTIFY" nil nil nil)
|
||||
(QuakeNet
|
||||
nil nil
|
||||
"Q@CServe.quakenet.org"
|
||||
"auth" t nil)
|
||||
"auth" t nil nil)
|
||||
(SlashNET
|
||||
"NickServ!services@services.slashnet.org"
|
||||
"/msg\\s-NickServ\\s-IDENTIFY\\s- password"
|
||||
"NickServ@services.slashnet.org"
|
||||
"IDENTIFY" nil nil))
|
||||
"IDENTIFY" nil nil nil))
|
||||
"Alist of NickServer details, sorted by network.
|
||||
Every element in the list has the form
|
||||
\(SYMBOL NICKSERV REGEXP NICK KEYWORD USE-CURRENT ANSWER)
|
||||
\(SYMBOL NICKSERV REGEXP NICK KEYWORD USE-CURRENT ANSWER SUCCESS-REGEXP)
|
||||
|
||||
SYMBOL is a network identifier, a symbol, as used in `erc-networks-alist'.
|
||||
NICKSERV is the description of the nickserv in the form nick!user@host.
|
||||
|
|
@ -258,7 +273,9 @@ KEYWORD is the keyword to use in the reply message to identify yourself.
|
|||
USE-CURRENT indicates whether the current nickname must be used when
|
||||
identifying.
|
||||
ANSWER is the command to use for the answer. The default is 'privmsg.
|
||||
This last element is optional."
|
||||
SUCCESS-REGEXP is a regular expression matching the message nickserv
|
||||
sends when you've successfully identified.
|
||||
The last two elements are optional."
|
||||
:group 'erc-services
|
||||
:type '(repeat
|
||||
(list :tag "Nickserv data"
|
||||
|
|
@ -292,8 +309,36 @@ ANSWER is the command to use for the answer. The default is 'privmsg.
|
|||
(defsubst erc-nickserv-alist-ident-command (network &optional entry)
|
||||
(nth 6 (or entry (assoc network erc-nickserv-alist))))
|
||||
|
||||
(defsubst erc-nickserv-alist-identified-regexp (network &optional entry)
|
||||
(nth 7 (or entry (assoc network erc-nickserv-alist))))
|
||||
|
||||
;; Functions:
|
||||
|
||||
(defcustom erc-nickserv-identified-hook nil
|
||||
"Run this hook when NickServ acknowledged successful identification.
|
||||
Hooks are called with arguments (NETWORK NICK)."
|
||||
:group 'erc-services
|
||||
:type 'hook)
|
||||
|
||||
(defun erc-nickserv-identification-autodetect (proc parsed)
|
||||
"Check for NickServ's successful identification notice.
|
||||
Make sure it is the real NickServ for this network and that it has
|
||||
specifically confirmed a successful identification attempt.
|
||||
If this is the case, run `erc-nickserv-identified-hook'."
|
||||
(let* ((network (erc-network))
|
||||
(sender (erc-nickserv-alist-sender network))
|
||||
(success-regex (erc-nickserv-alist-identified-regexp network))
|
||||
(sspec (erc-response.sender parsed))
|
||||
(nick (car (erc-response.command-args parsed)))
|
||||
(msg (erc-response.contents parsed)))
|
||||
;; continue only if we're sure it's the real nickserv for this network
|
||||
;; and it's told us we've successfully identified
|
||||
(when (and sender (equal sspec sender)
|
||||
(string-match success-regex msg))
|
||||
(erc-log "NickServ IDENTIFY success notification detected")
|
||||
(run-hook-with-args 'erc-nickserv-identified-hook network nick)
|
||||
nil)))
|
||||
|
||||
(defun erc-nickserv-identify-autodetect (proc parsed)
|
||||
"Check for a NickServ identify request everytime a notice is received.
|
||||
Make sure it is the real NickServ for this network and that it has
|
||||
|
|
|
|||
|
|
@ -412,8 +412,8 @@ NOW is position of point currently."
|
|||
(when erc-echo-timestamps
|
||||
(let ((stamp (get-text-property now 'timestamp)))
|
||||
(when stamp
|
||||
(message (format-time-string erc-echo-timestamp-format
|
||||
stamp))))))
|
||||
(message "%s" (format-time-string erc-echo-timestamp-format
|
||||
stamp))))))
|
||||
|
||||
(provide 'erc-stamp)
|
||||
|
||||
|
|
|
|||
|
|
@ -6213,6 +6213,7 @@ All windows are opened in the current frame."
|
|||
(s252 . "%i operator(s) online")
|
||||
(s253 . "%i unknown connection(s)")
|
||||
(s254 . "%i channels formed")
|
||||
(s275 . "%n %m")
|
||||
(s301 . "%n is AWAY: %r")
|
||||
(s303 . "Is online: %n")
|
||||
(s305 . "%m")
|
||||
|
|
|
|||
|
|
@ -2054,6 +2054,8 @@ ARC\\|ZIP\\|LZH\\|LHA\\|ZOO\\|[JEW]AR\\|XPI\\|RAR\\)\\'" . archive-mode)
|
|||
("\\.dtd\\'" . sgml-mode)
|
||||
("\\.ds\\(ss\\)?l\\'" . dsssl-mode)
|
||||
("\\.js\\'" . java-mode) ; javascript-mode would be better
|
||||
("\\.x[bp]m\\'" . c-mode)
|
||||
("\\.d?v\\'" . verilog-mode)
|
||||
;; .emacs or .gnus or .viper following a directory delimiter in
|
||||
;; Unix, MSDOG or VMS syntax.
|
||||
("[]>:/\\]\\..*\\(emacs\\|gnus\\|viper\\)\\'" . emacs-lisp-mode)
|
||||
|
|
@ -4204,10 +4206,12 @@ This undoes all changes since the file was visited or saved.
|
|||
With a prefix argument, offer to revert from latest auto-save file, if
|
||||
that is more recent than the visited file.
|
||||
|
||||
This command also works for special buffers that contain text which
|
||||
doesn't come from a file, but reflects some other data base instead:
|
||||
for example, Dired buffers and `buffer-list' buffers. In these cases,
|
||||
it reconstructs the buffer contents from the appropriate data base.
|
||||
This command also implements an interface for special buffers
|
||||
that contain text which doesn't come from a file, but reflects
|
||||
some other data instead (e.g. Dired buffers, `buffer-list'
|
||||
buffers). This is done via the variable
|
||||
`revert-buffer-function'. In these cases, it should reconstruct
|
||||
the buffer contents from the appropriate data.
|
||||
|
||||
When called from Lisp, the first argument is IGNORE-AUTO; only offer
|
||||
to revert from the auto-save file when this is nil. Note that the
|
||||
|
|
|
|||
|
|
@ -221,6 +221,7 @@ This hook will be installed if the variable
|
|||
etc-modules-conf-generic-mode
|
||||
etc-passwd-generic-mode
|
||||
etc-services-generic-mode
|
||||
etc-sudoers-generic-mode
|
||||
fvwm-generic-mode
|
||||
inetd-conf-generic-mode
|
||||
mailagent-rules-generic-mode
|
||||
|
|
@ -1736,6 +1737,21 @@ like an INI file. You can add this hook to `find-file-hook'."
|
|||
(setq imenu-generic-expression
|
||||
'((nil "^\\([^# \t]+\\)\\s-+" 1))))))))
|
||||
|
||||
;; /etc/sudoers
|
||||
(when (memq 'etc-sudoers-generic-mode generic-extras-enable-list)
|
||||
|
||||
(define-generic-mode etc-sudoers-generic-mode
|
||||
'(?#)
|
||||
'("User_Alias" "Runas_Alias" "Host_Alias" "Cmnd_Alias"
|
||||
"NOPASSWD" "PASSWD" "NOEXEC" "EXEC"
|
||||
"ALL")
|
||||
'(("\\<\\(root\\|su\\)\\>" 1 font-lock-warning-face)
|
||||
("\\(\\*\\)" 1 font-lock-warning-face)
|
||||
("\\<\\(%[A-Za-z0-9_]+\\)\\>" 1 font-lock-variable-name-face))
|
||||
'("/etc/sudoers\\'")
|
||||
nil
|
||||
"Generic mode for sudoers configuration files."))
|
||||
|
||||
;; From Jacques Duthen <jacques.duthen@sncf.fr>
|
||||
(when (memq 'show-tabs-generic-mode generic-extras-enable-list)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,3 +1,169 @@
|
|||
2007-12-15 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* gnus-art.el (article-verify-x-pgp-sig): Add reference to X-PGP-Sig
|
||||
format document.
|
||||
(gnus-mime-delete-part): Don't write description line if empty.
|
||||
(gnus-article-encrypt-body): Add confirmation for gnus-novice-user.
|
||||
|
||||
2007-12-14 Johan Bockg,Ae(Brd <bojohan@gnu.org>
|
||||
|
||||
* gnus-sum.el (gnus-summary-mark-unread-as-read)
|
||||
(gnus-summary-mark-read-and-unread-as-read)
|
||||
(gnus-summary-mark-current-read-and-unread-as-read)
|
||||
(gnus-summary-mark-unread-as-ticked): Doc fix.
|
||||
`gnus-mark-article-hook', not `gnus-summary-mark-article-hook'.
|
||||
|
||||
2007-12-14 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* gnus-sum.el (gnus-summary-prev-article): Fix doc string. Reported by
|
||||
Christoph Conrad <christoph.conrad@gmx.de>.
|
||||
|
||||
2007-12-14 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* gnus-util.el (gnus-y-or-n-p, gnus-yes-or-no-p): Alias to y-or-n-p and
|
||||
yes-or-no-p.
|
||||
|
||||
2007-12-11 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* mm-decode.el (mm-add-meta-html-tag): New function.
|
||||
(mm-save-part-to-file, mm-pipe-part): Use it
|
||||
|
||||
* gnus-art.el (gnus-article-browse-delete-temp-files): Use
|
||||
gnus-y-or-n-p instead of y-or-n-p.
|
||||
(gnus-article-browse-html-parts): Work with message/external-body; use
|
||||
mm-add-meta-html-tag.
|
||||
|
||||
2007-12-11 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* gnus-cache.el: Require gnus-sum not just when compiling.
|
||||
|
||||
* gnus-fun.el (gnus-display-x-face-in-from): Require gnus-art.
|
||||
|
||||
* gnus-int.el (gnus-server-opened, gnus-status-message): Move
|
||||
definitions before use.
|
||||
|
||||
* mm-decode.el: Require gnus-util.
|
||||
(mm-remove-part): Only call delete-annotation on XEmacs.
|
||||
|
||||
* mm-uu.el (gnus-original-article-buffer): Define for compiler.
|
||||
|
||||
* nnmail.el: Require gnus-int.
|
||||
|
||||
* spam.el: Move `require's before `eval-when-compile's.
|
||||
|
||||
* gnus-ems.el (gnus-alive-p):
|
||||
* gnus-fun.el (message-goto-eoh):
|
||||
* gnus-util.el (gnus-group-name-decode):
|
||||
* mail-source.el (gnus-compress-sequence):
|
||||
* message.el (Info-goto-node, format-spec):
|
||||
* mm-bodies.el (message-options-get):
|
||||
* mm-decode.el (mm-view-pkcs7):
|
||||
* mm-util.el (gmm-write-region):
|
||||
* mml-smime.el (mml-compute-boundary)
|
||||
(gnus-completing-read-with-default):
|
||||
* mml.el (widget-button-press, gnus-make-hashtable):
|
||||
* mml1991.el (mm-decode-content-transfer-encoding)
|
||||
(mm-encode-content-transfer-encoding)
|
||||
(message-options-get, message-options-set):
|
||||
* mml2015.el (gnus-buffer-live-p, gnus-get-buffer-create):
|
||||
* nnfolder.el (gnus-request-group):
|
||||
* nnheader.el (ietf-drums-unfold-fws):
|
||||
* rfc1843.el (mail-header-parse-content-type, message-narrow-to-head):
|
||||
* smime.el (gnus-run-mode-hooks):
|
||||
* spam-stat.el (gnus-message): Autoload.
|
||||
|
||||
* gnus-cache.el, gnus-fun.el, gnus-group.el, gnus.el, mail-source.el:
|
||||
* mm-bodies.el, mm-decode.el, mm-extern.el, mm-util.el:
|
||||
* mml-smime.el, mml.el, mml1991.el, mml2015.el, nndb.el, nnfolder.el:
|
||||
* nnmail.el, nnmaildir.el, nnrss.el, rfc1843.el, spam.el:
|
||||
Add declare-function compatibility definition.
|
||||
|
||||
* gnus-cache.el (nnvirtual-find-group-art):
|
||||
* gnus-fun.el (article-narrow-to-head, gnus-article-goto-header)
|
||||
(gnus-add-image, gnus-add-wash-type):
|
||||
* gnus-group.el (nnkiboze-score-file):
|
||||
* gnus-sum.el (turn-on-gnus-mailing-list-mode)
|
||||
(gnus-cache-write-active, mm-uu-dissect, idna-to-unicode):
|
||||
* gnus-util.el (gnus-find-method-for-group, gnus-group-name-charset)
|
||||
(message-tokenize-header, gnus-get-buffer-create)
|
||||
(mm-enable-multibyte, gnus-put-text-property, gnus-overlay-put)
|
||||
(gnus-make-overlay, mm-disable-multibyte, gnus-add-text-properties):
|
||||
* gnus.el (gnus-group-decoded-name):
|
||||
* mail-source.el (imap-capability):
|
||||
* mm-bodies.el (message-options-set):
|
||||
* mm-decode.el (gnus-configure-windows):
|
||||
* mm-extern.el (message-goto-body):
|
||||
* mm-util.el (mm-delete-duplicates, mm-detect-coding-region):
|
||||
* mml-smime.el (epg-key-sub-key-list, epg-sub-key-capability)
|
||||
(epg-sub-key-validity, message-options-set):
|
||||
* mml.el (widget-event-point, gnus-configure-windows):
|
||||
* mml1991.el (mc-encrypt-generic, gpg-sign-encrypt, gpg-encrypt):
|
||||
* mml2015.el (epg-check-configuration, epg-configuration)
|
||||
(message-options-set):
|
||||
* nndb.el (nndb-request-article):
|
||||
* nnfolder.el (gnus-request-create-group):
|
||||
* nnmail.el (gnus-activate-group, gnus-group-mark-article-read):
|
||||
* nnmaildir.el (gnus-group-mark-article-read):
|
||||
* nnrss.el (w3-parse-buffer, gnus-group-make-rss-group):
|
||||
* rfc1843.el (message-fetch-field):
|
||||
* spam.el (gnus-extract-address-components):
|
||||
Declare as functions.
|
||||
|
||||
2007-12-10 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* gnus-art.el (gnus-article-browse-html-parts): Decode CTE.
|
||||
|
||||
2007-12-09 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* gnus-uu.el (gnus-uu-yenc-article): Use insert-buffer-substring.
|
||||
|
||||
* gnus-art.el, gnus-spec.el, gnus-sum.el, gnus-util.el:
|
||||
* message.el, mm-view.el, sieve-manage, smime.el:
|
||||
Add declare-function compatibility definition.
|
||||
|
||||
* gnus-art.el (w3-region, w3m-region, Info-menu):
|
||||
* gnus-spec.el (gnus-summary-from-or-to-or-newsgroups):
|
||||
* gnus-sum.el (gnus-get-predicate):
|
||||
* gnus-util.el (mm-append-to-file, w32-focus-frame):
|
||||
* message.el (mail-abbrev-in-expansion-header-p):
|
||||
* mm-view.el (w3-do-setup, w3-region, w3-prepare-buffer)
|
||||
(w3m-detect-meta-charset, w3m-region):
|
||||
* sieve-manage.el (password-read, password-cache-add)
|
||||
(password-cache-remove):
|
||||
* smime.el (password-read-and-add): Declare as functions.
|
||||
|
||||
2007-12-08 David Kastrup <dak@gnu.org>
|
||||
|
||||
* gnus-sum.el (gnus-summary-simplify-subject-query):
|
||||
* ecomplete.el (ecomplete-display-matches): Fix buggy call to
|
||||
`message'.
|
||||
|
||||
2007-12-07 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* gnus-art.el (article-make-date-line): Revert previous change.
|
||||
|
||||
2007-12-06 Reiner Steib <Reiner.Steib@gmx.de>
|
||||
|
||||
* gnus-start.el (gnus-load): Rename local variable to avoid confusion.
|
||||
|
||||
2007-12-06 Christian Plate <cplate@web.de> (tiny change)
|
||||
|
||||
* nnmaildir.el (nnmaildir-request-update-info): Improved performance.
|
||||
Call gnus-add-to-range ranges only once with a prepared article-list.
|
||||
|
||||
2007-12-06 Paul Jarc <prj@po.cwru.edu>
|
||||
|
||||
* nnmaildir.el (nnmaildir-request-list, nnmaildir-retrieve-groups,
|
||||
nnmaildir-request-group, nnmaildir-retrieve-headers): Escape spaces in
|
||||
group names with backslashes. Reported by Tassilo Horn
|
||||
<tassilo@member.fsf.org>.
|
||||
|
||||
2007-12-06 D. Goel <deego3@gmail.com>
|
||||
|
||||
* gnus-art.el (article-make-date-line):
|
||||
* gnus-start.el (gnus-load):
|
||||
* pop3.el (pop3-read-response): Fix buggy call to `error'.
|
||||
|
||||
2007-12-05 Katsumi Yamaoka <yamaoka@jpl.org>
|
||||
|
||||
* gnus-art.el (gnus-use-idna)
|
||||
|
|
|
|||
|
|
@ -119,7 +119,7 @@
|
|||
nil)
|
||||
(if (not choose)
|
||||
(progn
|
||||
(message matches)
|
||||
(message "%s" matches)
|
||||
nil)
|
||||
(setq highlight (ecomplete-highlight-match-line matches line))
|
||||
(while (not (memq (setq command (read-event highlight)) '(? return)))
|
||||
|
|
|
|||
|
|
@ -27,6 +27,9 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
(eval-when-compile
|
||||
(require 'cl))
|
||||
(defvar tool-bar-map)
|
||||
|
|
@ -2705,6 +2708,9 @@ charset defined in `gnus-summary-show-article-charset-alist' is used."
|
|||
(t
|
||||
(apply (car func) (cdr func))))))))))
|
||||
|
||||
;; External.
|
||||
(declare-function w3-region "ext:w3-display" (st nd))
|
||||
|
||||
(defun gnus-article-wash-html-with-w3 ()
|
||||
"Wash the current buffer with w3."
|
||||
(mm-setup-w3)
|
||||
|
|
@ -2716,6 +2722,9 @@ charset defined in `gnus-summary-show-article-charset-alist' is used."
|
|||
(w3-region (point-min) (point-max))
|
||||
(error))))
|
||||
|
||||
;; External.
|
||||
(declare-function w3m-region "ext:w3m" (start end &optional url charset))
|
||||
|
||||
(defun gnus-article-wash-html-with-w3m ()
|
||||
"Wash the current buffer with emacs-w3m."
|
||||
(mm-setup-w3m)
|
||||
|
|
@ -2773,9 +2782,9 @@ summary buffer."
|
|||
(or how
|
||||
(setq how gnus-article-browse-delete-temp)))
|
||||
(when (and (eq how 'ask)
|
||||
(y-or-n-p (format
|
||||
"Delete all %s temporary HTML file(s)? "
|
||||
(length gnus-article-browse-html-temp-list)))
|
||||
(gnus-y-or-n-p (format
|
||||
"Delete all %s temporary HTML file(s)? "
|
||||
(length gnus-article-browse-html-temp-list)))
|
||||
(setq how t)))
|
||||
(dolist (file gnus-article-browse-html-temp-list)
|
||||
(when (and (file-exists-p file)
|
||||
|
|
@ -2793,61 +2802,63 @@ summary buffer."
|
|||
"View all \"text/html\" parts from LIST.
|
||||
Recurse into multiparts."
|
||||
;; Internal function used by `gnus-article-browse-html-article'.
|
||||
(let ((showed))
|
||||
(let (type file charset tmp-file showed)
|
||||
;; Find and show the html-parts.
|
||||
(dolist (handle list)
|
||||
;; If HTML, show it:
|
||||
(when (listp handle)
|
||||
(cond ((and (bufferp (car handle))
|
||||
(string-match "text/html" (car (mm-handle-type handle))))
|
||||
(let ((tmp-file (mm-make-temp-file
|
||||
;; Do we need to care for 8.3 filenames?
|
||||
"mm-" nil ".html"))
|
||||
(charset (mail-content-type-get (mm-handle-type handle)
|
||||
'charset)))
|
||||
(if charset
|
||||
;; Add a meta html tag to specify charset.
|
||||
(mm-with-unibyte-buffer
|
||||
(insert (with-current-buffer (mm-handle-buffer handle)
|
||||
(if (eq charset 'gnus-decoded)
|
||||
(mm-encode-coding-string
|
||||
(buffer-string)
|
||||
(setq charset 'utf-8))
|
||||
(buffer-string))))
|
||||
(setq charset (format "\
|
||||
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=%s\">"
|
||||
charset))
|
||||
(goto-char (point-min))
|
||||
(let ((case-fold-search t))
|
||||
(cond (;; Don't modify existing meta tag.
|
||||
(re-search-forward "\
|
||||
<meta[\t\n\r ]+http-equiv=\"content-type\"[^>]+>"
|
||||
nil t))
|
||||
((re-search-forward "<head>[\t\n\r ]*" nil t)
|
||||
(insert charset "\n"))
|
||||
(t
|
||||
(re-search-forward "\
|
||||
<html\\(?:[\t\n\r ]+[^>]+\\|[\t\n\r ]*\\)>[\t\n\r ]*"
|
||||
nil t)
|
||||
(insert "<head>\n" charset "\n</head>\n"))))
|
||||
(cond ((not (listp handle)))
|
||||
((or (equal (car (setq type (mm-handle-type handle))) "text/html")
|
||||
(and (equal (car type) "message/external-body")
|
||||
(setq file (or (mail-content-type-get type 'name)
|
||||
(mail-content-type-get
|
||||
(mm-handle-disposition handle)
|
||||
'filename)))
|
||||
(or (mm-handle-cache handle)
|
||||
(condition-case code
|
||||
(progn (mm-extern-cache-contents handle) t)
|
||||
(error
|
||||
(gnus-message 3 "%s" (error-message-string code))
|
||||
(when (>= gnus-verbose 3) (sit-for 2))
|
||||
nil)))
|
||||
(progn
|
||||
(setq handle (mm-handle-cache handle)
|
||||
type (mm-handle-type handle))
|
||||
(equal (car type) "text/html"))))
|
||||
(when (or (setq charset (mail-content-type-get type 'charset))
|
||||
(not file))
|
||||
(setq tmp-file (mm-make-temp-file
|
||||
;; Do we need to care for 8.3 filenames?
|
||||
"mm-" nil ".html")))
|
||||
(if charset
|
||||
;; Add a meta html tag to specify charset.
|
||||
(mm-with-unibyte-buffer
|
||||
(insert (if (eq charset 'gnus-decoded)
|
||||
(mm-encode-coding-string (mm-get-part handle)
|
||||
(setq charset 'utf-8))
|
||||
(mm-get-part handle)))
|
||||
(if (or (mm-add-meta-html-tag handle charset)
|
||||
(not file))
|
||||
(mm-write-region (point-min) (point-max)
|
||||
tmp-file nil nil nil 'binary t))
|
||||
(mm-save-part-to-file handle tmp-file))
|
||||
(add-to-list 'gnus-article-browse-html-temp-list tmp-file)
|
||||
(add-hook 'gnus-summary-prepare-exit-hook
|
||||
'gnus-article-browse-delete-temp-files)
|
||||
(add-hook 'gnus-exit-gnus-hook
|
||||
(lambda ()
|
||||
(gnus-article-browse-delete-temp-files t)))
|
||||
;; FIXME: Warn if there's an <img> tag?
|
||||
(browse-url-of-file tmp-file)
|
||||
(setq showed t)))
|
||||
;; If multipart, recurse
|
||||
((and (stringp (car handle))
|
||||
(string-match "^multipart/" (car handle))
|
||||
(setq showed
|
||||
(or showed
|
||||
(gnus-article-browse-html-parts handle))))))))
|
||||
tmp-file nil nil nil 'binary t)
|
||||
(setq tmp-file nil)))
|
||||
(when tmp-file
|
||||
(mm-save-part-to-file handle tmp-file)))
|
||||
(when tmp-file
|
||||
(add-to-list 'gnus-article-browse-html-temp-list tmp-file))
|
||||
(add-hook 'gnus-summary-prepare-exit-hook
|
||||
'gnus-article-browse-delete-temp-files)
|
||||
(add-hook 'gnus-exit-gnus-hook
|
||||
(lambda ()
|
||||
(gnus-article-browse-delete-temp-files t)))
|
||||
;; FIXME: Warn if there's an <img> tag?
|
||||
(browse-url-of-file (or tmp-file (expand-file-name file)))
|
||||
(setq showed t))
|
||||
;; If multipart, recurse
|
||||
((and (stringp (car handle))
|
||||
(string-match "^multipart/" (car handle))
|
||||
(setq showed
|
||||
(or showed
|
||||
(gnus-article-browse-html-parts handle)))))))
|
||||
showed))
|
||||
|
||||
;; FIXME: Documentation in texi/gnus.texi missing.
|
||||
|
|
@ -3907,6 +3918,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
|
|||
|
||||
(defun article-verify-x-pgp-sig ()
|
||||
"Verify X-PGP-Sig."
|
||||
;; <ftp://ftp.isc.org/pub/pgpcontrol/FORMAT>
|
||||
(interactive)
|
||||
(if (gnus-buffer-live-p gnus-original-article-buffer)
|
||||
(let ((sig (with-current-buffer gnus-original-article-buffer
|
||||
|
|
@ -4715,8 +4727,9 @@ Deleting parts may malfunction or destroy the article; continue? "))
|
|||
(handles gnus-article-mime-handles)
|
||||
(none "(none)")
|
||||
(description
|
||||
(mail-decode-encoded-word-string (or (mm-handle-description data)
|
||||
none)))
|
||||
(let ((desc (mm-handle-description data)))
|
||||
(when desc
|
||||
(mail-decode-encoded-word-string desc))))
|
||||
(filename
|
||||
(or (mail-content-type-get (mm-handle-disposition data) 'filename)
|
||||
none))
|
||||
|
|
@ -4734,7 +4747,8 @@ Deleting parts may malfunction or destroy the article; continue? "))
|
|||
"| Type: " type "\n"
|
||||
"| Filename: " filename "\n"
|
||||
"| Size (encoded): " bsize " Byte\n"
|
||||
"| Description: " description "\n"
|
||||
(when description
|
||||
(concat "| Description: " description "\n"))
|
||||
"`----\n"))
|
||||
(setcdr data
|
||||
(cdr (mm-make-handle
|
||||
|
|
@ -7682,6 +7696,9 @@ url is put as the `gnus-button-url' overlay property on the button."
|
|||
"Fetch KDE style info URL."
|
||||
(gnus-info-find-node (gnus-url-unhex-string url)))
|
||||
|
||||
;; (info) will autoload info.el
|
||||
(declare-function Info-menu "info" (menu-item &optional fork))
|
||||
|
||||
(defun gnus-button-handle-info-keystrokes (url)
|
||||
"Call `info' when pushing the corresponding URL button."
|
||||
;; For links like `C-h i d m gnus RET', `C-h i d m CC Mode RET'.
|
||||
|
|
@ -7991,6 +8008,11 @@ For example:
|
|||
gnus-article-encrypt-protocol-alist
|
||||
nil t))
|
||||
current-prefix-arg))
|
||||
;; User might hit `K E' instead of `K e', so prompt once.
|
||||
(when (and gnus-article-encrypt-protocol
|
||||
gnus-novice-user)
|
||||
(unless (gnus-y-or-n-p "Really encrypt article(s)? ")
|
||||
(error "Encrypt aborted.")))
|
||||
(let ((func (cdr (assoc protocol gnus-article-encrypt-protocol-alist))))
|
||||
(unless func
|
||||
(error "Can't find the encrypt protocol %s" protocol))
|
||||
|
|
|
|||
|
|
@ -27,13 +27,18 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(require 'gnus)
|
||||
(require 'gnus-sum)
|
||||
|
||||
(eval-when-compile
|
||||
(unless (fboundp 'gnus-agent-load-alist)
|
||||
(defun gnus-agent-load-alist (group)))
|
||||
(require 'gnus-sum))
|
||||
(defun gnus-agent-load-alist (group))))
|
||||
|
||||
(defcustom gnus-cache-active-file
|
||||
(expand-file-name "active" gnus-cache-directory)
|
||||
|
|
@ -91,6 +96,8 @@ it's not cached."
|
|||
(defvar gnus-cache-active-altered nil)
|
||||
(defvar gnus-cache-total-fetched-hashtb nil)
|
||||
|
||||
(declare-function nnvirtual-find-group-art "nnvirtual" (group article))
|
||||
|
||||
(eval-and-compile
|
||||
(autoload 'nnml-generate-nov-databases-directory "nnml")
|
||||
(autoload 'nnvirtual-find-group-art "nnvirtual"))
|
||||
|
|
|
|||
|
|
@ -161,6 +161,8 @@
|
|||
"Non-nil means the mark and region are currently active in this buffer."
|
||||
mark-active) ; aliased to region-exists-p in XEmacs.
|
||||
|
||||
(autoload 'gnus-alive-p "gnus-util")
|
||||
|
||||
(defun gnus-x-splash ()
|
||||
"Show a splash screen using a pixmap in the current buffer."
|
||||
(interactive)
|
||||
|
|
|
|||
|
|
@ -26,6 +26,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl))
|
||||
|
||||
|
|
@ -105,6 +109,8 @@ Output to the current buffer, replace text, and don't mingle error."
|
|||
(format gnus-convert-pbm-to-x-face-command
|
||||
(shell-quote-argument file)))))))
|
||||
|
||||
(autoload 'message-goto-eoh "message" nil t)
|
||||
|
||||
;;;###autoload
|
||||
(defun gnus-insert-random-x-face-header ()
|
||||
"Insert a random X-Face header from `gnus-x-face-directory'."
|
||||
|
|
@ -203,8 +209,14 @@ The colors from this face are used as the foreground and background
|
|||
colors of the displayed X-Faces."
|
||||
:group 'gnus-article-headers)
|
||||
|
||||
(declare-function article-narrow-to-head "gnus-art" ())
|
||||
(declare-function gnus-article-goto-header "gnus-art" (header))
|
||||
(declare-function gnus-add-image "gnus-art" (category image))
|
||||
(declare-function gnus-add-wash-type "gnus-art" (type))
|
||||
|
||||
(defun gnus-display-x-face-in-from (data)
|
||||
"Display the X-Face DATA in the From header."
|
||||
(require 'gnus-art)
|
||||
(let ((default-enable-multibyte-characters nil)
|
||||
pbm)
|
||||
(when (or (gnus-image-type-available-p 'xface)
|
||||
|
|
|
|||
|
|
@ -27,6 +27,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl))
|
||||
(defvar tool-bar-mode)
|
||||
|
|
@ -3004,6 +3008,8 @@ mail messages or news articles in files that have numeric names."
|
|||
(list 'nndir (gnus-group-real-name group) (list 'nndir-directory dir)))))
|
||||
|
||||
(defvar nnkiboze-score-file)
|
||||
(declare-function nnkiboze-score-file "nnkiboze" (group))
|
||||
|
||||
(defun gnus-group-make-kiboze-group (group address scores)
|
||||
"Create an nnkiboze group.
|
||||
The user will be prompted for a name, a regexp to match groups, and
|
||||
|
|
|
|||
|
|
@ -58,6 +58,27 @@ server denied."
|
|||
(defvar gnus-internal-registry-spool-current-method nil
|
||||
"The current method, for the registry.")
|
||||
|
||||
|
||||
(defun gnus-server-opened (gnus-command-method)
|
||||
"Check whether a connection to GNUS-COMMAND-METHOD has been opened."
|
||||
(unless (eq (gnus-server-status gnus-command-method)
|
||||
'denied)
|
||||
(when (stringp gnus-command-method)
|
||||
(setq gnus-command-method (gnus-server-to-method gnus-command-method)))
|
||||
(funcall (inline (gnus-get-function gnus-command-method 'server-opened))
|
||||
(nth 1 gnus-command-method))))
|
||||
|
||||
(defun gnus-status-message (gnus-command-method)
|
||||
"Return the status message from GNUS-COMMAND-METHOD.
|
||||
If GNUS-COMMAND-METHOD is a string, it is interpreted as a group
|
||||
name. The method this group uses will be queried."
|
||||
(let ((gnus-command-method
|
||||
(if (stringp gnus-command-method)
|
||||
(gnus-find-method-for-group gnus-command-method)
|
||||
gnus-command-method)))
|
||||
(funcall (gnus-get-function gnus-command-method 'status-message)
|
||||
(nth 1 gnus-command-method))))
|
||||
|
||||
;;;
|
||||
;;; Server Communication
|
||||
;;;
|
||||
|
|
@ -315,26 +336,6 @@ If it is down, start it up (again)."
|
|||
(when func
|
||||
(funcall func date (nth 1 gnus-command-method)))))
|
||||
|
||||
(defun gnus-server-opened (gnus-command-method)
|
||||
"Check whether a connection to GNUS-COMMAND-METHOD has been opened."
|
||||
(unless (eq (gnus-server-status gnus-command-method)
|
||||
'denied)
|
||||
(when (stringp gnus-command-method)
|
||||
(setq gnus-command-method (gnus-server-to-method gnus-command-method)))
|
||||
(funcall (inline (gnus-get-function gnus-command-method 'server-opened))
|
||||
(nth 1 gnus-command-method))))
|
||||
|
||||
(defun gnus-status-message (gnus-command-method)
|
||||
"Return the status message from GNUS-COMMAND-METHOD.
|
||||
If GNUS-COMMAND-METHOD is a string, it is interpreted as a group
|
||||
name. The method this group uses will be queried."
|
||||
(let ((gnus-command-method
|
||||
(if (stringp gnus-command-method)
|
||||
(gnus-find-method-for-group gnus-command-method)
|
||||
gnus-command-method)))
|
||||
(funcall (gnus-get-function gnus-command-method 'status-message)
|
||||
(nth 1 gnus-command-method))))
|
||||
|
||||
(defun gnus-request-regenerate (gnus-command-method)
|
||||
"Request a data generation from GNUS-COMMAND-METHOD."
|
||||
(when (stringp gnus-command-method)
|
||||
|
|
|
|||
|
|
@ -27,6 +27,9 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
(eval-when-compile (require 'cl))
|
||||
(defvar gnus-newsrc-file-version)
|
||||
|
||||
|
|
@ -87,6 +90,9 @@ text properties. This is only needed on XEmacs, as FSF Emacs does this anyway."
|
|||
(defvar gnus-tmp-header)
|
||||
(defvar gnus-tmp-from)
|
||||
|
||||
(declare-function gnus-summary-from-or-to-or-newsgroups "gnus-sum"
|
||||
(header gnus-tmp-from))
|
||||
|
||||
(defun gnus-summary-line-format-spec ()
|
||||
(insert gnus-tmp-unread gnus-tmp-replied
|
||||
gnus-tmp-score-char gnus-tmp-indentation)
|
||||
|
|
|
|||
|
|
@ -2394,11 +2394,11 @@ If FORCE is non-nil, the .newsrc file is read."
|
|||
(eval form))
|
||||
(error
|
||||
(unless (eq (car type) 'end-of-file)
|
||||
(let ((error (format "Error in %s line %d" file
|
||||
(count-lines (point-min) (point)))))
|
||||
(let ((errmsg (format "Error in %s line %d" file
|
||||
(count-lines (point-min) (point)))))
|
||||
(ding)
|
||||
(unless (gnus-yes-or-no-p (concat error "; continue? "))
|
||||
(error "%s" error)))))))))
|
||||
(unless (gnus-yes-or-no-p (concat errmsg "; continue? "))
|
||||
(error "%s" errmsg)))))))))
|
||||
|
||||
(defun gnus-read-newsrc-el-file (file)
|
||||
(let ((ding-file (concat file "d")))
|
||||
|
|
|
|||
|
|
@ -27,6 +27,9 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
(eval-when-compile
|
||||
(require 'cl))
|
||||
|
||||
|
|
@ -2959,6 +2962,9 @@ When FORCE, rebuild the tool bar."
|
|||
(setq headers (cdr headers)))
|
||||
(list (nreverse outh))))))))
|
||||
|
||||
|
||||
(declare-function turn-on-gnus-mailing-list-mode "gnus-ml" ())
|
||||
|
||||
|
||||
|
||||
(defun gnus-summary-mode (&optional group)
|
||||
|
|
@ -4028,7 +4034,7 @@ If NO-DISPLAY, don't generate a summary buffer."
|
|||
"Query where the respool algorithm would put this article."
|
||||
(interactive)
|
||||
(gnus-summary-select-article)
|
||||
(message (gnus-general-simplify-subject (gnus-summary-article-subject))))
|
||||
(message "%s" (gnus-general-simplify-subject (gnus-summary-article-subject))))
|
||||
|
||||
(defun gnus-gather-threads-by-subject (threads)
|
||||
"Gather threads by looking at Subject headers."
|
||||
|
|
@ -5576,6 +5582,8 @@ If SELECT-ARTICLES, only select those articles from GROUP."
|
|||
(gnus-inverse-list-range-intersection
|
||||
gnus-newsgroup-articles gnus-newsgroup-seen))))
|
||||
|
||||
(declare-function gnus-get-predicate "gnus-agent" (predicate))
|
||||
|
||||
(defun gnus-summary-display-make-predicate (display)
|
||||
(require 'gnus-agent)
|
||||
(when (= (length display) 1)
|
||||
|
|
@ -6946,6 +6954,8 @@ If FORCE (the prefix), also save the .newsrc file(s)."
|
|||
(gnus-save-newsrc-file)
|
||||
(gnus-dribble-save)))
|
||||
|
||||
(declare-function gnus-cache-write-active "gnus-cache" (&optional force))
|
||||
|
||||
(defun gnus-summary-exit (&optional temporary leave-hidden)
|
||||
"Exit reading current newsgroup, and then return to group selection mode.
|
||||
`gnus-exit-group-hook' is called with no arguments if that value is non-nil."
|
||||
|
|
@ -7648,7 +7658,7 @@ If BACKWARD, the previous article is selected instead of the next."
|
|||
(gnus-summary-article-subject))))
|
||||
|
||||
(defun gnus-summary-prev-article (&optional unread subject)
|
||||
"Select the article after the current one.
|
||||
"Select the article before the current one.
|
||||
If UNREAD is non-nil, only unread articles are selected."
|
||||
(interactive "P")
|
||||
(gnus-summary-next-article unread subject t))
|
||||
|
|
@ -9437,6 +9447,8 @@ prefix specifies how many places to rotate each letter forward."
|
|||
;; Create buttons and stuff...
|
||||
(gnus-treat-article nil))
|
||||
|
||||
(declare-function idna-to-unicode "ext:idna" (str))
|
||||
|
||||
(defun gnus-summary-idna-message (&optional arg)
|
||||
"Decode IDNA encoded domain names in the current articles.
|
||||
IDNA encoded domain names looks like `xn--bar'. If a string
|
||||
|
|
@ -10818,12 +10830,12 @@ The difference between N and the number of marks cleared is returned."
|
|||
(gnus-summary-mark-forward (- n) gnus-unread-mark))
|
||||
|
||||
(defun gnus-summary-mark-unread-as-read ()
|
||||
"Intended to be used by `gnus-summary-mark-article-hook'."
|
||||
"Intended to be used by `gnus-mark-article-hook'."
|
||||
(when (memq gnus-current-article gnus-newsgroup-unreads)
|
||||
(gnus-summary-mark-article gnus-current-article gnus-read-mark)))
|
||||
|
||||
(defun gnus-summary-mark-read-and-unread-as-read (&optional new-mark)
|
||||
"Intended to be used by `gnus-summary-mark-article-hook'."
|
||||
"Intended to be used by `gnus-mark-article-hook'."
|
||||
(let ((mark (gnus-summary-article-mark)))
|
||||
(when (or (gnus-unread-mark-p mark)
|
||||
(gnus-read-mark-p mark))
|
||||
|
|
@ -10831,7 +10843,7 @@ The difference between N and the number of marks cleared is returned."
|
|||
(or new-mark gnus-read-mark)))))
|
||||
|
||||
(defun gnus-summary-mark-current-read-and-unread-as-read (&optional new-mark)
|
||||
"Intended to be used by `gnus-summary-mark-article-hook'."
|
||||
"Intended to be used by `gnus-mark-article-hook'."
|
||||
(let ((mark (gnus-summary-article-mark)))
|
||||
(when (or (gnus-unread-mark-p mark)
|
||||
(gnus-read-mark-p mark))
|
||||
|
|
@ -10839,7 +10851,7 @@ The difference between N and the number of marks cleared is returned."
|
|||
(or new-mark gnus-read-mark)))))
|
||||
|
||||
(defun gnus-summary-mark-unread-as-ticked ()
|
||||
"Intended to be used by `gnus-summary-mark-article-hook'."
|
||||
"Intended to be used by `gnus-mark-article-hook'."
|
||||
(when (memq gnus-current-article gnus-newsgroup-unreads)
|
||||
(gnus-summary-mark-article gnus-current-article gnus-ticked-mark)))
|
||||
|
||||
|
|
@ -11792,6 +11804,7 @@ save those articles instead."
|
|||
encoded)))
|
||||
|
||||
(defvar gnus-summary-save-parts-counter)
|
||||
(declare-function mm-uu-dissect "mm-uu" (&optional noheader mime-type))
|
||||
|
||||
(defun gnus-summary-save-parts (type dir n &optional reverse)
|
||||
"Save parts matching TYPE to DIR.
|
||||
|
|
|
|||
|
|
@ -35,6 +35,9 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
(eval-when-compile
|
||||
(require 'cl))
|
||||
;; Fixme: this should be a gnus variable, not nnmail-.
|
||||
|
|
@ -214,6 +217,13 @@ is slower."
|
|||
(search-forward ":" eol t)
|
||||
(point)))))
|
||||
|
||||
(declare-function gnus-find-method-for-group "gnus" (group &optional info))
|
||||
(autoload 'gnus-group-name-decode "gnus-group")
|
||||
(declare-function gnus-group-name-charset "gnus-group" (method group))
|
||||
;; gnus-group requires gnus-int which requires message.
|
||||
(declare-function message-tokenize-header "message"
|
||||
(header &optional separator))
|
||||
|
||||
(defun gnus-decode-newsgroups (newsgroups group &optional method)
|
||||
(let ((method (or method (gnus-find-method-for-group group))))
|
||||
(mapconcat (lambda (group)
|
||||
|
|
@ -327,15 +337,23 @@ Symbols are also allowed; their print names are used instead."
|
|||
|
||||
;; Two silly functions to ensure that all `y-or-n-p' questions clear
|
||||
;; the echo area.
|
||||
(defun gnus-y-or-n-p (prompt)
|
||||
(prog1
|
||||
(y-or-n-p prompt)
|
||||
(message "")))
|
||||
;;
|
||||
;; Do we really need these aliases? Workarounds for bugs in the corresponding
|
||||
;; Emacs functions? Maybe these bug are no longer present in any supported
|
||||
;; (X)Emacs version? Alias them to the original functions and see if anyone
|
||||
;; reports a problem. If not, replace with original functions. --rsteib
|
||||
;;
|
||||
;; (defun gnus-y-or-n-p (prompt)
|
||||
;; (prog1
|
||||
;; (y-or-n-p prompt)
|
||||
;; (message "")))
|
||||
;; (defun gnus-yes-or-no-p (prompt)
|
||||
;; (prog1
|
||||
;; (yes-or-no-p prompt)
|
||||
;; (message "")))
|
||||
|
||||
(defun gnus-yes-or-no-p (prompt)
|
||||
(prog1
|
||||
(yes-or-no-p prompt)
|
||||
(message "")))
|
||||
(defalias 'gnus-y-or-n-p 'y-or-n-p)
|
||||
(defalias 'gnus-yes-or-no-p 'yes-or-no-p)
|
||||
|
||||
;; By Frank Schmitt <ich@Frank-Schmitt.net>. Allows to have
|
||||
;; age-depending date representations. (e.g. just the time if it's
|
||||
|
|
@ -654,6 +672,10 @@ If N, return the Nth ancestor instead."
|
|||
|
||||
(defvar gnus-work-buffer " *gnus work*")
|
||||
|
||||
(declare-function gnus-get-buffer-create "gnus" (name))
|
||||
;; gnus.el requires mm-util.
|
||||
(declare-function mm-enable-multibyte "mm-util")
|
||||
|
||||
(defun gnus-set-work-buffer ()
|
||||
"Put point in the empty Gnus work buffer."
|
||||
(if (get-buffer gnus-work-buffer)
|
||||
|
|
@ -838,6 +860,9 @@ If there's no subdirectory, delete DIRECTORY as well."
|
|||
(setq string (replace-match "" t t string)))
|
||||
string)
|
||||
|
||||
(declare-function gnus-put-text-property "gnus"
|
||||
(start end property value &optional object))
|
||||
|
||||
(defsubst gnus-put-text-property-excluding-newlines (beg end prop val)
|
||||
"The same as `put-text-property', but don't put this prop on any newlines in the region."
|
||||
(save-match-data
|
||||
|
|
@ -849,6 +874,10 @@ If there's no subdirectory, delete DIRECTORY as well."
|
|||
(setq beg (point)))
|
||||
(gnus-put-text-property beg (point) prop val)))))
|
||||
|
||||
(declare-function gnus-overlay-put "gnus" (overlay prop value))
|
||||
(declare-function gnus-make-overlay "gnus"
|
||||
(beg end &optional buffer front-advance rear-advance))
|
||||
|
||||
(defsubst gnus-put-overlay-excluding-newlines (beg end prop val)
|
||||
"The same as `put-text-property', but don't put this prop on any newlines in the region."
|
||||
(save-match-data
|
||||
|
|
@ -987,6 +1016,9 @@ with potentially long computations."
|
|||
(defvar rmail-default-rmail-file)
|
||||
(defvar mm-text-coding-system)
|
||||
|
||||
(declare-function mm-append-to-file "mm-util"
|
||||
(start end filename &optional codesys inhibit))
|
||||
|
||||
(defun gnus-output-to-rmail (filename &optional ask)
|
||||
"Append the current article to an Rmail file named FILENAME."
|
||||
(require 'rmail)
|
||||
|
|
@ -1199,6 +1231,9 @@ Return the modified alist."
|
|||
(throw 'found nil)))
|
||||
t))
|
||||
|
||||
;; gnus.el requires mm-util.
|
||||
(declare-function mm-disable-multibyte "mm-util")
|
||||
|
||||
(defun gnus-write-active-file (file hashtb &optional full-names)
|
||||
;; `coding-system-for-write' should be `raw-text' or equivalent.
|
||||
(let ((coding-system-for-write nnmail-active-file-coding-system))
|
||||
|
|
@ -1266,6 +1301,9 @@ Return the modified alist."
|
|||
(pop l2))
|
||||
l1))))
|
||||
|
||||
(declare-function gnus-add-text-properties "gnus"
|
||||
(start end properties &optional object))
|
||||
|
||||
(defun gnus-add-text-properties-when
|
||||
(property value start end properties &optional object)
|
||||
"Like `gnus-add-text-properties', only applied on where PROPERTY is VALUE."
|
||||
|
|
@ -1515,6 +1553,8 @@ CHOICE is a list of the choice char and help message at IDX."
|
|||
(kill-buffer buf))
|
||||
tchar))
|
||||
|
||||
(declare-function w32-focus-frame "../term/w32-win" (frame))
|
||||
|
||||
(defun gnus-select-frame-set-input-focus (frame)
|
||||
"Select FRAME, raise it, and set input focus, if possible."
|
||||
(cond ((featurep 'xemacs)
|
||||
|
|
|
|||
|
|
@ -1051,7 +1051,7 @@ When called interactively, prompt for REGEXP."
|
|||
(unless state
|
||||
(push 'middle state))
|
||||
(mm-with-unibyte-buffer
|
||||
(insert-buffer gnus-original-article-buffer)
|
||||
(insert-buffer-substring gnus-original-article-buffer)
|
||||
(yenc-decode-region (point-min) (point-max))
|
||||
(when (and (member 'begin state)
|
||||
(file-exists-p gnus-uu-yenc-article-name))
|
||||
|
|
|
|||
|
|
@ -30,6 +30,10 @@
|
|||
|
||||
(eval '(run-hooks 'gnus-load-hook))
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
(require 'wid-edit)
|
||||
(require 'mm-util)
|
||||
|
|
@ -3736,6 +3740,8 @@ server is native)."
|
|||
"Return the prefix of the current group name."
|
||||
(< 0 (length (gnus-group-real-prefix group))))
|
||||
|
||||
(declare-function gnus-group-decoded-name "gnus-group" (string))
|
||||
|
||||
(defun gnus-summary-buffer-name (group)
|
||||
"Return the summary buffer name of GROUP."
|
||||
(concat "*Summary " (gnus-group-decoded-name group) "*"))
|
||||
|
|
|
|||
|
|
@ -27,6 +27,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(require 'format-spec)
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
|
|
@ -997,9 +1001,14 @@ This only works when `display-time' is enabled."
|
|||
(autoload 'imap-range-to-message-set "imap")
|
||||
(autoload 'nnheader-ms-strip-cr "nnheader"))
|
||||
|
||||
(autoload 'gnus-compress-sequence "gnus-range")
|
||||
|
||||
(defvar mail-source-imap-file-coding-system 'binary
|
||||
"Coding system for the crashbox made by `mail-source-fetch-imap'.")
|
||||
|
||||
;; Autoloads will bring in imap before this is called.
|
||||
(declare-function imap-capability "imap" (&optional identifier buffer))
|
||||
|
||||
(defun mail-source-fetch-imap (source callback)
|
||||
"Fetcher for imap sources."
|
||||
(mail-source-bind (imap source)
|
||||
|
|
|
|||
|
|
@ -31,9 +31,11 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
(eval-when-compile
|
||||
(require 'cl))
|
||||
|
||||
|
||||
(require 'hashcash)
|
||||
(require 'canlock)
|
||||
(require 'mailheader)
|
||||
|
|
@ -2469,6 +2471,8 @@ Point is left at the beginning of the narrowed-to region."
|
|||
(kill-region start (point))))
|
||||
|
||||
|
||||
(autoload 'Info-goto-node "info")
|
||||
|
||||
(defun message-info (&optional arg)
|
||||
"Display the Message manual.
|
||||
|
||||
|
|
@ -3696,6 +3700,8 @@ This function uses `mail-citation-hook' if that is non-nil."
|
|||
|
||||
(defvar gnus-extract-address-components)
|
||||
|
||||
(autoload 'format-spec "format-spec")
|
||||
|
||||
(defun message-insert-formatted-citation-line (&optional from date)
|
||||
"Function that inserts a formatted citation line.
|
||||
|
||||
|
|
@ -7474,6 +7480,8 @@ If nil, the function bound in `text-mode-map' or `global-map' is executed."
|
|||
:type '(choice (const nil)
|
||||
function))
|
||||
|
||||
(declare-function mail-abbrev-in-expansion-header-p "mailabbrev" ())
|
||||
|
||||
(defun message-tab ()
|
||||
"Complete names according to `message-completion-alist'.
|
||||
Execute function specified by `message-tab-body-function' when not in
|
||||
|
|
|
|||
|
|
@ -26,6 +26,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(require 'mm-util)
|
||||
(require 'rfc2047)
|
||||
(require 'mm-encode)
|
||||
|
|
@ -67,6 +71,9 @@ Valid encodings are `7bit', `8bit', `quoted-printable' and `base64'."
|
|||
(const base64))))
|
||||
:group 'mime)
|
||||
|
||||
(autoload 'message-options-get "message")
|
||||
(declare-function message-options-set "message" (symbol value))
|
||||
|
||||
(defun mm-encode-body (&optional charset)
|
||||
"Encode a body.
|
||||
Should be called narrowed to the body that is to be encoded.
|
||||
|
|
|
|||
|
|
@ -26,9 +26,14 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(require 'mail-parse)
|
||||
(require 'mailcap)
|
||||
(require 'mm-bodies)
|
||||
(require 'gnus-util)
|
||||
(eval-when-compile (require 'cl)
|
||||
(require 'term))
|
||||
|
||||
|
|
@ -733,6 +738,8 @@ external if displayed external."
|
|||
(mm-display-external
|
||||
handle 'mailcap-save-binary-file)))))))))
|
||||
|
||||
(declare-function gnus-configure-windows "gnus-win" (setting &optional force))
|
||||
|
||||
(defun mm-display-external (handle method)
|
||||
"Display HANDLE using METHOD."
|
||||
(let ((outbuf (current-buffer)))
|
||||
|
|
@ -990,7 +997,8 @@ external if displayed external."
|
|||
(cond
|
||||
;; Internally displayed part.
|
||||
((mm-annotationp object)
|
||||
(delete-annotation object))
|
||||
(if (featurep 'xemacs)
|
||||
(delete-annotation object)))
|
||||
((or (functionp object)
|
||||
(and (listp object)
|
||||
(eq (car object) 'lambda)))
|
||||
|
|
@ -1231,9 +1239,39 @@ PROMPT overrides the default one used to ask user for a file name."
|
|||
(mm-save-part-to-file handle file)
|
||||
file))))
|
||||
|
||||
(defun mm-add-meta-html-tag (handle &optional charset)
|
||||
"Add meta html tag to specify CHARSET of HANDLE in the current buffer.
|
||||
CHARSET defaults to the one HANDLE specifies. Existing meta tag that
|
||||
specifies charset will not be modified. Return t if meta tag is added
|
||||
or replaced."
|
||||
(when (equal (mm-handle-media-type handle) "text/html")
|
||||
(when (or charset
|
||||
(setq charset (mail-content-type-get (mm-handle-type handle)
|
||||
'charset)))
|
||||
(setq charset (format "\
|
||||
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=%s\">" charset))
|
||||
(let ((case-fold-search t))
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "\
|
||||
<meta\\s-+http-equiv=[\"']?content-type[\"']?\\s-+content=[\"']\
|
||||
text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\(.+?\\)\\)?[\"'][^>]*>" nil t)
|
||||
(if (and (match-beginning 2)
|
||||
(string-match "\\`html\\'" (match-string 1)))
|
||||
;; Don't modify existing meta tag.
|
||||
nil
|
||||
;; Replace it with the one specifying charset.
|
||||
(replace-match charset)
|
||||
t)
|
||||
(if (re-search-forward "<head>\\s-*" nil t)
|
||||
(insert charset "\n")
|
||||
(re-search-forward "<html\\(?:\\s-+[^>]+\\|\\s-*\\)>\\s-*" nil t)
|
||||
(insert "<head>\n" charset "\n</head>\n"))
|
||||
t)))))
|
||||
|
||||
(defun mm-save-part-to-file (handle file)
|
||||
(mm-with-unibyte-buffer
|
||||
(mm-insert-part handle)
|
||||
(mm-add-meta-html-tag handle)
|
||||
(let ((current-file-modes (default-file-modes)))
|
||||
(set-default-file-modes mm-attachment-file-modes)
|
||||
(unwind-protect
|
||||
|
|
@ -1250,6 +1288,7 @@ PROMPT overrides the default one used to ask user for a file name."
|
|||
(read-string "Shell command on MIME part: " mm-last-shell-command)))
|
||||
(mm-with-unibyte-buffer
|
||||
(mm-insert-part handle)
|
||||
(mm-add-meta-html-tag handle)
|
||||
(let ((coding-system-for-write 'binary))
|
||||
(shell-command-on-region (point-min) (point-max) command nil)))))
|
||||
|
||||
|
|
@ -1490,6 +1529,8 @@ If RECURSIVE, search recursively."
|
|||
(put-text-property 0 (length (car handle)) parameter value
|
||||
(car handle))))
|
||||
|
||||
(autoload 'mm-view-pkcs7 "mm-view")
|
||||
|
||||
(defun mm-possibly-verify-or-decrypt (parts ctl)
|
||||
(let ((type (car ctl))
|
||||
(subtype (cadr (split-string (car ctl) "/")))
|
||||
|
|
|
|||
|
|
@ -27,6 +27,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(require 'mm-util)
|
||||
|
|
@ -90,6 +94,8 @@
|
|||
(let (mm-extern-anonymous)
|
||||
(mm-extern-anon-ftp handle)))
|
||||
|
||||
(declare-function message-goto-body "message" (&optional interactivep))
|
||||
|
||||
(defun mm-extern-mail-server (handle)
|
||||
(require 'message)
|
||||
(let* ((params (cdr (mm-handle-type handle)))
|
||||
|
|
|
|||
|
|
@ -26,6 +26,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
(require 'mail-prsvr)
|
||||
|
||||
|
|
@ -913,6 +917,8 @@ But this is very much a corner case, so don't worry about it."
|
|||
(when (featurep 'xemacs)
|
||||
`(and (featurep 'mule) (mm-xemacs-find-mime-charset-1 ,begin ,end))))
|
||||
|
||||
(declare-function mm-delete-duplicates "mm-util" (list))
|
||||
|
||||
(defun mm-find-mime-charset-region (b e &optional hack-charsets)
|
||||
"Return the MIME charsets needed to encode the region between B and E.
|
||||
nil means ASCII, a single-element list represents an appropriate MIME
|
||||
|
|
@ -1145,6 +1151,8 @@ If INHIBIT is non-nil, inhibit `mm-inhibit-file-name-handlers'."
|
|||
inhibit-file-name-handlers)))
|
||||
(write-region start end filename append visit lockname)))
|
||||
|
||||
(autoload 'gmm-write-region "gmm-utils")
|
||||
|
||||
;; It is not a MIME function, but some MIME functions use it.
|
||||
(if (and (fboundp 'make-temp-file)
|
||||
(ignore-errors
|
||||
|
|
@ -1236,6 +1244,8 @@ If SUFFIX is non-nil, add that at the end of the file name."
|
|||
(if (eq (point) end) 'ascii (mm-guess-charset))
|
||||
(goto-char point)))))
|
||||
|
||||
(declare-function mm-detect-coding-region "mm-util" (start end))
|
||||
|
||||
(if (fboundp 'coding-system-get)
|
||||
(defun mm-detect-mime-charset-region (start end)
|
||||
"Detect MIME charset of the text in the region between START and END."
|
||||
|
|
|
|||
|
|
@ -427,6 +427,8 @@ apply the face `mm-uu-extract'."
|
|||
(list mm-dissect-disposition
|
||||
(cons 'filename file-name)))))
|
||||
|
||||
(defvar gnus-original-article-buffer) ; gnus.el
|
||||
|
||||
(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
|
||||
|
|
|
|||
|
|
@ -24,7 +24,8 @@
|
|||
;;; Commentary:
|
||||
|
||||
;;; Code:
|
||||
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
(eval-when-compile (require 'cl))
|
||||
(require 'mail-parse)
|
||||
(require 'mailcap)
|
||||
|
|
@ -117,6 +118,11 @@
|
|||
(defalias 'mm-inline-image 'mm-inline-image-xemacs)
|
||||
(defalias 'mm-inline-image 'mm-inline-image-emacs)))
|
||||
|
||||
;; External.
|
||||
(declare-function w3-do-setup "ext:w3" ())
|
||||
(declare-function w3-region "ext:w3-display" (st nd))
|
||||
(declare-function w3-prepare-buffer "ext:w3-display" (&rest args))
|
||||
|
||||
(defvar mm-w3-setup nil)
|
||||
(defun mm-setup-w3 ()
|
||||
(unless mm-w3-setup
|
||||
|
|
@ -201,6 +207,10 @@
|
|||
(defvar mm-w3m-setup nil
|
||||
"Whether gnus-article-mode has been setup to use emacs-w3m.")
|
||||
|
||||
;; External.
|
||||
(declare-function w3m-detect-meta-charset "ext:w3m" ())
|
||||
(declare-function w3m-region "ext:w3m" (start end &optional url charset))
|
||||
|
||||
(defun mm-setup-w3m ()
|
||||
"Setup gnus-article-mode to use emacs-w3m."
|
||||
(unless mm-w3m-setup
|
||||
|
|
|
|||
|
|
@ -27,6 +27,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(require 'smime)
|
||||
|
|
@ -216,6 +220,8 @@ Whether the passphrase is cached at all is controlled by
|
|||
(quit))
|
||||
result))
|
||||
|
||||
(autoload 'gnus-completing-read-with-default "gnus-util")
|
||||
|
||||
(defun mml-smime-openssl-encrypt-query ()
|
||||
;; todo: try dns/ldap automatically first, before prompting user
|
||||
(let (certs done)
|
||||
|
|
@ -346,6 +352,10 @@ Whether the passphrase is cached at all is controlled by
|
|||
(cons key-id mml-smime-epg-secret-key-id-list))
|
||||
(copy-sequence passphrase)))))
|
||||
|
||||
(declare-function epg-key-sub-key-list "ext:epg" (key))
|
||||
(declare-function epg-sub-key-capability "ext:epg" (sub-key))
|
||||
(declare-function epg-sub-key-validity "ext:epg" (sub-key))
|
||||
|
||||
(defun mml-smime-epg-find-usable-key (keys usage)
|
||||
(catch 'found
|
||||
(while keys
|
||||
|
|
@ -358,6 +368,12 @@ Whether the passphrase is cached at all is controlled by
|
|||
(setq pointer (cdr pointer))))
|
||||
(setq keys (cdr keys)))))
|
||||
|
||||
(autoload 'mml-compute-boundary "mml")
|
||||
|
||||
;; We require mm-decode, which requires mm-bodies, which autoloads
|
||||
;; message-options-get (!).
|
||||
(declare-function message-options-set "message" (symbol value))
|
||||
|
||||
(defun mml-smime-epg-sign (cont)
|
||||
(let* ((inhibit-redisplay t)
|
||||
(context (epg-make-context 'CMS))
|
||||
|
|
|
|||
|
|
@ -25,6 +25,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(require 'mm-util)
|
||||
(require 'mm-bodies)
|
||||
(require 'mm-encode)
|
||||
|
|
@ -1315,6 +1319,12 @@ Should be adopted if code in `message-send-mail' is changed."
|
|||
|
||||
(defvar mml-preview-buffer nil)
|
||||
|
||||
(autoload 'gnus-make-hashtable "gnus-util")
|
||||
(autoload 'widget-button-press "wid-edit" nil t)
|
||||
(declare-function widget-event-point "wid-edit" (event))
|
||||
;; If gnus-buffer-configuration is bound this is loaded.
|
||||
(declare-function gnus-configure-windows "gnus-win" (setting &optional force))
|
||||
|
||||
(defun mml-preview (&optional raw)
|
||||
"Display current buffer with Gnus, in a new buffer.
|
||||
If RAW, display a raw encoded MIME message.
|
||||
|
|
|
|||
|
|
@ -28,6 +28,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(eval-when-compile
|
||||
(require 'cl)
|
||||
(require 'mm-util))
|
||||
|
|
@ -39,6 +43,11 @@
|
|||
(autoload 'quoted-printable-decode-region "qp")
|
||||
(autoload 'quoted-printable-encode-region "qp")
|
||||
|
||||
(autoload 'mm-decode-content-transfer-encoding "mm-bodies")
|
||||
(autoload 'mm-encode-content-transfer-encoding "mm-bodies")
|
||||
(autoload 'message-options-get "message")
|
||||
(autoload 'message-options-set "message")
|
||||
|
||||
(defvar mml1991-use mml2015-use
|
||||
"The package used for PGP.")
|
||||
|
||||
|
|
@ -111,6 +120,9 @@ Whether the passphrase is cached at all is controlled by
|
|||
(insert-buffer-substring signature)
|
||||
(goto-char (point-max)))))
|
||||
|
||||
(declare-function mc-encrypt-generic "ext:mc-toplev"
|
||||
(&optional recipients scheme start end from sign))
|
||||
|
||||
(defun mml1991-mailcrypt-encrypt (cont &optional sign)
|
||||
(let ((text (current-buffer))
|
||||
(mc-pgp-always-sign
|
||||
|
|
@ -161,6 +173,13 @@ Whether the passphrase is cached at all is controlled by
|
|||
(eval-and-compile
|
||||
(autoload 'gpg-sign-cleartext "gpg"))
|
||||
|
||||
(declare-function gpg-sign-encrypt "ext:gpg"
|
||||
(plaintext ciphertext result recipients &optional
|
||||
passphrase sign-with-key armor textmode))
|
||||
(declare-function gpg-encrypt "ext:gpg"
|
||||
(plaintext ciphertext result recipients &optional
|
||||
passphrase armor textmode))
|
||||
|
||||
(defun mml1991-gpg-sign (cont)
|
||||
(let ((text (current-buffer))
|
||||
headers signature
|
||||
|
|
|
|||
|
|
@ -30,6 +30,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
(require 'mm-decode)
|
||||
(require 'mm-util)
|
||||
|
|
@ -38,6 +42,10 @@
|
|||
|
||||
(defvar mc-pgp-always-sign)
|
||||
|
||||
(declare-function epg-check-configuration "ext:epg-config"
|
||||
(config &optional minimum-version))
|
||||
(declare-function epg-configuration "ext:epg-config" ())
|
||||
|
||||
(defvar mml2015-use (or
|
||||
(condition-case nil
|
||||
(progn
|
||||
|
|
@ -396,6 +404,10 @@ Whether the passphrase is cached at all is controlled by
|
|||
(insert (format "--%s--\n" boundary))
|
||||
(goto-char (point-max))))
|
||||
|
||||
;; We require mm-decode, which requires mm-bodies, which autoloads
|
||||
;; message-options-get (!).
|
||||
(declare-function message-options-set "message" (symbol value))
|
||||
|
||||
(defun mml2015-mailcrypt-encrypt (cont &optional sign)
|
||||
(let ((mc-pgp-always-sign
|
||||
(or mc-pgp-always-sign
|
||||
|
|
@ -1329,6 +1341,9 @@ If no one is selected, default secret key is used. "
|
|||
|
||||
;;; General wrapper
|
||||
|
||||
(autoload 'gnus-buffer-live-p "gnus-util")
|
||||
(autoload 'gnus-get-buffer-create "gnus")
|
||||
|
||||
(defun mml2015-clean-buffer ()
|
||||
(if (gnus-buffer-live-p mml2015-result-buffer)
|
||||
(with-current-buffer mml2015-result-buffer
|
||||
|
|
|
|||
|
|
@ -48,6 +48,12 @@
|
|||
;; * make the backend TOUCH an article when marked as expireable (will
|
||||
;; make article expire 'expiry' days after that moment).
|
||||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
;;-
|
||||
;; Register nndb with known select methods.
|
||||
|
||||
|
|
@ -55,8 +61,6 @@
|
|||
(unless (assoc "nndb" gnus-valid-select-methods)
|
||||
(gnus-declare-backend "nndb" 'mail 'respool 'address 'prompt-address))
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'nnmail)
|
||||
(require 'nnheader)
|
||||
(require 'nntp)
|
||||
|
|
@ -240,6 +244,9 @@ expiry mechanism."
|
|||
(nndb-request-expire-articles-remote articles group server force)
|
||||
(nndb-request-expire-articles-local articles group server force)))
|
||||
|
||||
;; _Something_ defines it...
|
||||
(declare-function nndb-request-article "nndb" t t)
|
||||
|
||||
(deffoo nndb-request-move-article
|
||||
(article group server accept-form &optional last move-is-internal)
|
||||
"Move ARTICLE (a number) from GROUP on SERVER.
|
||||
|
|
|
|||
|
|
@ -31,6 +31,10 @@
|
|||
|
||||
;;; Code:
|
||||
|
||||
;; For Emacs < 22.2.
|
||||
(eval-and-compile
|
||||
(unless (fboundp 'declare-function) (defmacro declare-function (&rest r))))
|
||||
|
||||
(require 'nnheader)
|
||||
(require 'message)
|
||||
(require 'nnmail)
|
||||
|
|
@ -429,6 +433,10 @@ the group. Then the marks file will be regenerated properly by Gnus.")
|
|||
;; The article numbers are increasing, so this result is sorted.
|
||||
(nreverse numbers)))))
|
||||
|
||||
(autoload 'gnus-request-group "gnus-int")
|
||||
(declare-function gnus-request-create-group "gnus-int"
|
||||
(group &optional gnus-command-method args))
|
||||
|
||||
(deffoo nnfolder-request-expire-articles (articles newsgroup
|
||||
&optional server force)
|
||||
(nnfolder-possibly-change-group newsgroup server)
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Reference in a new issue